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-REM ! 


IDENTIFICATION 


11 | PRODUCT CODE: AC-8456D-MC 
13 PRODUCT NAME: | CZDHDDO DHi1 SPD SEL LOG TST 
15 DATE: 12-JUNE-1985 

17 MAINTAINER: NAC SOFTWARE ENGINEERING 

19 AUTHOR : MICHAEL DAVIS 
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21 

22 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
23 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
24 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
25 NO — FOR ANY ERRORS THAT MAY APPEAR IN THIS 


27 
28 NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF SOFTWARE ON 
29 EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS AFFILIATED 


30 COMPANIES 


33 
34 COPYRIGHT (C) 1972, 1976, 1985 BY DIGITAL EQUIPMENT CORPORATION, 
35 MAYNARD, MASSACHUSETTS. 
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1. ABSTRACT 


THE DH11 SPEED SELECTION LOGIC TEST VERIFIES 
THAT THE SPEED SELECTION FUNCTIONS 

OF THE LINE PARAMETER REGISTER OPERATE PROPERLY 

FOR EACH TRANSMITTER AND RECEIVER LINE. TRANSMITTER 
TIMING IS CHECKED FIRST, AND THEN RECEIVER TIMING IS 
TESTED. THE PROGRAM USES A RELATIVE TIMING COMPARISION 
TO DETERMINE IF LINE SPEED SELECTION IS CORRECT. 


NOTE: THE EXTERNAL CLOCK FUNCTIONS (SPEED CODES 16 AND 17) 
ARE NOT TESTED. 








-— 


Ce arn nee e renee AA casi se sharin shoei te 
SEQ 3 


MACRO VO4.00 27-JUN-85 12:54:12 PAGE 3 


REQUIREMENTS 
2.1 EQUIPMENT 
PDOP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY 
ASR-33 TELETYPE OR EQUIVALENT 
DH11 ASYNCHRONOUS MULTIPLEXER 
DM11 MAINTENANCE CARD INSTALLED 
2.2 STORAGE 


THE PROGRAM LOADS INTO 4KW OF MEMORY 


3. LOADING PROCEDURE 
THE STANDART PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED 

4. STARTING PROCEDURE 


4.1 CONTROL SWITCH SETTINGS 
4.1.1 AFTER PROGRAM LOAD CINITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


4.1.2 10 MODIFY DEVICE 4g AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTAR 


SWO00=1 
4.1.3 TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 
SWO1=1 
4.2 STARTING ADDRESS 
THE STARTING ADDRESS FOR ALL TESTS IS 000200 
THE RESTART ACDRESS FOR ALL TESTS I 0002000 
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 
PROGRAM AND/OR OPERATOR ACTION 
INITIAL PROGRAM START 
LOAD om ei INTO MEMORY 
000200 


eaeee 
_ 
s, 
m 
= 
- 
: 
w 


THE PROGRAM WILL TYPE “DH11 SPEED SE!.ECTION LOGIC TEST” 
AND WILL THEN TYPE “VECTOR ADDRESS- sD WATT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD. 





—— 
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4.3 (CONT‘D) 


4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
FOR THE DH11 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 


NOTE: WORDS IN ANGLE BRACKETS, I.E. <CARRIAGE RETURN> MEAN THAT 
THE TELETYPE KEY WITH THE NAMED FUNCTION SHOULD BE STRUCK 


IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM 

WILL TYPE “?” AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5 
4.3.1.7 THE PROGRAM WILL TYPE "CONTROL REGISTER ADDRESS-” 

AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 
DH1i1 TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL TYPE 

“?" AND WILL THEN REPEAT THE MESSAGE OF 4.3.1.7 
4.3.1.9 THE PROGRAM WILL TYPE “R” TO INDICATE THAT IT IS 

ABOUT TO START TESTING, AND THEN TESTING WILL BEGIN 


PROGRAM RESTART WITH ALL SWITCHES DOWN 

-1 PERFORM 4.3.1.2 TO 4.3.1.5 

-2 THE PROGRAM WILL TYPE “DHii1 SPEED SELECTION LOGIC TEST” 
AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9 


PROGRAM RESTART WITH SWOO=1 


4.3.3 

4.3.3.1 LOAD ADDRESS 000200 

4.3.3.2 SET a ateke 

4.3.3.3 PRESS STAR 

4.3.3.4 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
4.3.4 PROGRAM RESTART WITH SWO1=1 

4.3.4.1 LOAD ADDRESS 000200 

4.3.4.2 SET SWO1=1 

4.3.4.3 PRESS START 

4.3.4.4 THE TYPE “OH11 SPEED SELECTION LOGIC TEST” 


PROGRAM WILL 
AND WILL THEN TYPE “TEST PC-" AND WILL WAIT FOR AN INPUT 
FROM THE TELETYPE KEYBOARD 
4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY <CARRIAGE RETURN> 
4.3.4.6 THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED 
AND WILL START TESTING AT THE SELECTED TEST. 


NOTE: CARE MUST BE TAKEN WHEN THS FEATURE IS USED, SINCE 
THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS THAT 
IS IN THE MIDDLE OF A TEST 


NOTE: IF IT IS DESIRED TO LOOP ON THE TEST THAT IS SELECTED 
SET SWi4=1 BEFORE ENTERING THE TEST ADDRESS 





SEQ 4 
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5.2 
5.2.1 


5.2.2 


5.2.3 





OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


SW15=1, HALT ON ERROR 

SW14=1, LOOP ON CURRENT TEST 

SWi3=1, SUPPRESS ERROR TYPEOUT 

SWii=1, INHIBIT ITERATIONS 

SWi0=1, ESCAPE TO NEXT TEST ON ERROR 

SWO9=1, FREEZE VARIABLE PARAMETER IN CURRENT TEST 
SWO1=1, START PROGRAM AT SELECTED TEST 

SWOO=1, CHANGE PARAMETERS AT PROGRAM RESTART 


SUBROUTINE ABSTRACTS 
TRAPCATCHER (LOCATIONS 000000-000776) 
THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS 


AND TRAPS. THE AREA FROM 000000-000776 IS LOADED 
WITH THE FOLLOWING SEQUENCE 


sat Ragte o2fonw 
~J ° 
oO We 


IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM 
WILL HALT WITH THE PC 2 GREATER THAN THE ADDRESS TO 
WHICH THE PROGRAM TRAPPED. THE PROCESSOR STACK MAY 

BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS WHEN THE 
TRAP OR INTERRUPT OCCURED. 


START (PROGRAM INITIALIZATION) 


THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS, 
TYPES The PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR 
AND CONTROL REGISTER ADDRESSES OF THE DHii TO BE TESTED. 


BEGIN (PROGRAM START AND RESTART) 


THIS ROUTINE IS ENTERED IMMEDIATLY AFTER “START” 
AND EACH TIME A PROGRAM PASS HAS BEEN COMPLETED. 
THE ROUTINE SETS UP THE PROCESSOR STACK AND STATUS WORD 
AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH 

TESTING WILL BEGIN. IF SWO1=0 WHEN THIS ROUTINE IS ENTERD 
TESTING WILL START AT Ti (TEST 1). IF SWOi=1 WHEN 

THIS ROUTINE IS ENTERED, TESTING WILL START AT THE PC 
ENTERED FROM THE TELETYPE KEYBOARD. 





CZOHD -00 


CSertOUNawh-— 


o- 








SEQ 6 
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5.2.4 


5.2.5 


5.2.6 





EOP CEND OF PASS) 


THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS 
HAVE BEEN COMPLETED. THIS ROUTINE TYPES THE MAINDEC 
IDENTIFICATION CODE OF THE PROGRAM, CLEARS ERROR FLAGS 
AND UPDATES THE PASS COUNT. IF THE PROGRAM WAS LOADED 
UNDER ACT11 OR DDP, THE ROUTINE CHECKS FOR RETURN TO 
THE ACT1i1 OR DDP MONITOR. IF THE PROGRAM IS NOT UNDER 
MONITOR CONTROL, THE ROUTINE TRANSFERS TO BEGIN. 


SCOPER (SCOPE LOOP AND ITERATION HANDLER) 


THIS ROUTINE IS ENTERED EACH TIME A TEST IS — 

THE ROUTINE CHECKS FOR THE FOLLOWING UPON ENTR 

A) IF SWi0=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
IN SEQUENCE, AFTER CLEARING ERROR FLA 

B) IF SWil*1, THE ROUTINE WILL ge yhoo TO THE NEXT TEST 
SEQUENCE, AFTER CLEARING ERROR FLAGS. 

C) IF SWi4=1, THE ROUTINE WILL LOOP ON THE CURRENT TEST 
REGARDLESS OF THE ITERATION COUNT. 


IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1 

TO THE COUNT OF TEST ITERATIONS, AND COMPARE THIS VALUE 
TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED. 

IF THESE NUMBERS ARE EQUAL, THE ROUTINE WILL TRANSFER 
TO THE NEXT TEST IN SEQUENCE. THE THE NUMBERS ARE NOT 
EQUAL, THE TEST CURRENTLY IN PROGRESS WILL BE REPEATED. 


SCOP1R (FREEZE ON CURRENT DATA) 


THE CALL TO THIS ROUTINE FOLLOWS IMMEDIATLY AFTER THE 
THE CALL TO THE ERROR HANDLER IN THOSE TESTS THAT HAVE 
VARIABLE PARAMETERS. THIS ROUTINE IS ALWAYS ENTERED IN 
THOSE TESTS, WHETHER OR NOT AN ERROR OCCURS. 

IF SWO9*1, THE ROUTINE WILL TRANSFER CONTROL BACK TO THE 
TEST AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION 
UNDER TEST onten tie WITH THE SAME DATA. IF THIS 
OPTION IS SELECTED, THE ROUTINE “SCOPER” IS NEVER ENTERED 
AND ITERATION COUNTS. WILL NOT BE UPDATED. 





-—— 
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5.2.7 ERRORS (CERROR HANDLER) 


THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. 
WITH ALL CONSOLE SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLOWS: 
A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR H HANDLER 
IS ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION 
ITSELF IS FETCHED. THE 8 LSB OF THE EMT 
INSTRUCTION ARE THE ERROR CODE. THIS CODE IS 
USED TO ACCESS A TABLE OF ERROR MESSAGES AND ERROR 
DATA STORAGE LOCATIONS. 
B) IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY 
DURING THIS PASS, A COMPLETE ERROR REPORT IS MADE 
IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING 
THE CURRENT PASS, ONLY THE DATA RELATING TO THE FAILUER 
IS TYPED. IF SWi3=1, NO ERROR TYPEOUT IS MADE. 
THE ROUTINE NOW CHECKS FOR HALT ON ERROR. IF SwiS=1 


PROGR L TO 
THE ERROR ROUTINE IN RO. IF SWi5=0, THE PROGRAM WILL 
NOT HALT, BUT WILL CHECK FOR ESCAPE TO NEXT TEST. 
D) IF SWi0*0, THE ROUTINE WILL RETURN 
TO THE TEST IN PROGRESS. IF SW1i0=1, THE ROUTINE WILL 
ABORT THE CURRENT TEST, AND TRANSFER TO THE NEXT 
TEST IN SEQUENCE, THRU THE ROUTINE “SCOPER”. 


5.2.8 TRPSRV (TRAP DECODE AND DISPATCH) 


THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION 
THAT CAUSED TH PROGRAM INTERRUPT, AND TRANSFERS CONTROL 
TO THE ROUTINE THRU THE TABLE “TRPTAB” USING THE 8 LSB 
OF THE TRAP INSTRUCTION AS AN OFFSET TO THE POINTER TO 
THE ROUTINE TO BE ENTERED. 


Cc 


ad 
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5.3 
5.3.1 
5.3.1.1 


5.3.1.2 


5.3.1.3 


5.3.1.4 


5.3.2 


5.3.3 


5.3.3.1 
5.3.3.2 


5.3.4 


5.3.7 


PROGRAM AND OR OPERATOR ACTION 

PROGRAM START WITH ALL SWITCHES DOWN 

REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 
BEHAVIOR. 

AFTER “R* HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION 
WILL BEGIN. EACH TEST WILL BE REPEATED A SELECTED NUMBER 
OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) 
AND THEN THE PROGRAM WILL PROCEED TO THE NEXT TEST. 

WHEN ALL ITERATIONS HAVE BEEN COMPLETED, THE PROGRAM 
WILL TYPE “CZDHD-D“ AND THEN RESTART TESTING AT TEST 1 
(LOCATION Ti IN THE PROGRAM). 


IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE 
ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS. 


PROGRAM START WITH SWOO=1 

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 
PROGRAM START WITH SWOi=1 

REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 


TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED 
AND WILL CONTINUE AS DESCRIBED IN 5.3.1.2 


AFTER “CZDHD-D” HAS BEEN TYPED, THE PROGRAM WILL 
RESUME TESTING AT TEST 1 


PROGRAM OPERATION WITH SW1i5=1 

SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR, 
THE PROGRAM WILL HALT AFTER THE ERROR TYPEOUT, AND 

THE PC+2 OF THE CALL TO THE ERROR ROUTINE WILL BE 
DISPLAYED IN RO. 

PROGRAM OPERATION WITH SWi3=1 

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR 
PROGRAM OPERATION WITH SW1ii=1 


— AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE 


PROGRAM OPERATION WITH SW10-1 


SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR 
THE CURRENT TEST WILL BE ABORTED, AND THE PROGRAM 
WILL PROCEED TO THE NEXT TEST IN SEQUENCE. 





- 


5.3.8 


6.1.1 


6.2 
6.2.1 


6.2.2 


6.2.3 





(CONT’D) 
PROGRAM OPERATION WITH SWi4=1, OR SWO09=1 


THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. 
SEE SECTION 6.3 FOR THEIR USE. 


ERRORS 
ERROR HALTS 


THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS 
IS AS FOLLOWS 


PC+2 MESSAGE 
HEADER CIF APPLICABLE) 
DATA CIF APPLICABLE) 


WHERE 
PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER + 2 
MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE 
HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW 
DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE 
AP Ta ag Mt N A GIVEN TEST ON THE SAME 

PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY 
DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS 


IF NO DATA IS ASSOCIATED WITH THE ERROR 
THE COMPLETE ERROR MESSAGE IS TYPED. 


ERROR DESCRIPTIONS 

SEE LISTING FOR DETAILS OF ERRORS 
ERROR RECOVERY 

SW15+0 


THE PROGRAM IS RUN WITH SWiS=0, NO OPERATOT ACTION IS 
REQUIRED TO CONTINUE TESTING 


IF THE PROGRAM IS RUN WITH SWi5=1, TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED, PRESS THE PROCESSOR 
CONSOLE CONTINUE SWITCH 


ILLEGAL INTERRUPTS 


IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT 

SELECTED DURING PROGRAM INITIALIZATION, THE PROGRAM WILL 
HALT IN THE TRAPCATCHER. THE ADDRESS AT WHICH 

THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS 
TO WHICH THE INTERRUPT OCCURED. THE PROGRAM MUST BE 
RESTARTED AT 200 TO RECOVER FROM THIS ERROR. 








SEQ 9 


ee 
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6.3 
6.3.1 


6.3.2 


SCOPE LOOPING 
TO SCOPE ON A SPECIFIC TEST, SET SWi4*1 AND SW13=1 

THIS WILL CAUSE THE PROGRAM TO CONTINUOUSLY LOOP ON THE 

SAME TEST, AND WILL CAUSE ALL ERROR TYPEOUTS TO BE INNIBITED 
TO SCOPE ON A SPECIFIC VALUE OF A PARAMETER WITHIN 

A TEST, SET SWO9=1 TO FREEZE THE DATA 

(SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE) 
(CONT'D) 

PROGRAM START TO SCOPE LOOP ON SELECTED TEST 

PERFORM SECTION 4.3.4 WITH SW14=1 

RESTRICTIONS 

STARTING 

THE DH11 TEST CARD MUST BE INSTALLED 

RUNNING 

NONE 

MISCELLANEOUS 

EXECUTION TIME 

THE TIME FOR ONE PASS OF THE PROGRAM CEND OF 

TYPEOUT OF CZDHD-D TO END OF TYPEOUT OF CZDHD-D) 

IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE BELOW 


TIME 
PROCESSOR 


POP-11/05,10 
POP -11/20 
POP-11740 
PDP-11745 








SEQ 10 
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9. 


10. 


PROGRAM DESCRIPTION 


poy hp RE 
LINE BASIS USING A RELATIVE TIMING TECHNIQUE TO DETERMINE 
IF SPEED SELECTION FOR A SELECTED LINE IS CORRECT. 


THE TEST PROCEEDS AS FOLLOWS: 


Se S SS Oe XS! FOR A SLECTED LIME. ANO 
A COUNT IS RECORDED FROM THE TIME THAT THE BAR BIT IS 

SET FOR THAT LINE TO THE TIME THAT TRANSMITTER DONE IS SET. 

THREE CHARACTERS ARE TRANSMITTED. AT THE SAME 

TIME, A TIMEOUT COUNTER IS STARTED. IF THE TIMEOUT 

COUNTER DECREMENTS TO 0 BEFORE TRANSMITTER DONE IS 

» AN ERROR MESSAGE IS REPORTED. IF 1 eal 
TRANSMISSION IS RESTARTED 

TIMEOUT ARE RESTARTED. 


ae 
; 
af 


: 
z 
age 
A 
ie 


Brags 

te 
: 

Lan 

- - 
cae. 
Sot 
az 
ins 
ney 
sag 
: 


g 
ee 
: 
2 
= 
a 
= 
z 
: 





af 
-2 
u 
a 
: 
es | 
3 
e 
9 
: 


TESTS VERIFIES THAT RECEIVER 
CORRECT, BY USING A RELATIVE TI 
ABOVE CHARA 


i 
x 
pe | 
: 
g 











MING 
COMPARTS IBED CTER IS TRANSMITTED 
AS ABOVE IME FROM THE START OF TR ISSION 
TO THE CHARACTER AVAILABLE IS RECEIVED 
Is OUT COUNT IS DECREMENTED. 
4 THE S TO 0 BEFORE CHARACTER 


HIGHEST BAUD RATE 

TRANSMITTER TESTS 
RATE IS GREATER THAN 
OR HAS OCCURED, 


SEQ i1 





753 
TCH REGISTER” 
754 


7 
CLEAN END OF PASS 
MESSAGE. 


SEQ 12 
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; OWMAC-A - DH1i MACRO LIBRARY 
; COPYRIGHT 1985. DIGITAL EQUIPMENT CORP.. MAYNARD. MASS. 01754 


LIST 
-MLIST C.MD.CWD 


s (CMS REPLACEMENT HISTORY 





9 SKONETSKI 26-APR-1985 16:23:08 “FIXED TYPO CAUSING ASSEMBLY ERRORS” 
#8 SKONETSKI 22-APR-1985 16:48:03 “TYPO ERROR IN VECTOR CHANGE CODE SOURCE FIXED” 
+ #7 SKONETSKI 22-APR-1985 16:26:04 “ADDED CODE TO SET VECTORS FOR PWR FAIL, ERRORS, AND EMT 


s #6 SKONETSKI 22-APR-1985 14:22:35 “FIXED BRANCH ERROR IN END OF PASS ROUTINE” 
s #5 SKONETSKI 22-APR-1965 96:28:54 “FIXED BUG CAN OCTASC MACRO CALL WAS WRONG) AND ADDED A 





5 #4 SKONETSKI 18-APR-1985 14:20:15 “ADDED SOFTWARE SWITCH REG SUPPORT, PUT UNTESTED” 
s #3 SKONETSKI 12-APR-1985 10:34:52 “FIXED PROBLEMS WITH SPURIOUS CR/LFS” 
s #2 SKONETSKI 11-APR-1985 16:00:24 “ADDED MACRO FROM SYSMAC.SML THAT SIZES FOR SOFTWARE SWI 


3 #1 SKONETSKI 11-APR-1985 15:49:05 “LIBRARY FOR DH11 DIAGNOSTICS” 


SE 
CZDHO -D0 MACRO VO4.00 27-JUN-85 12:54:12 PAGE 13 = 


o -LIST € 
3 -MLIST MC.MD.CND 
5 000CCO -HEADER */1976,1985/.*/DH11 SPEED SELECTION LOGIC TEST/, t/CZDHD-DO/ 





sPROGRAM WILL TYPE DH1i SPEED SELECTION LOGIC TEST 
sPROGRAM WILL TYPE “VECTOR ADDRESS-* 
STYPE IN THE ADORESS OF THE RECEIVER INTERRUPT T VECTOR 
oan THE DHii TO BE TESTED, FOLLOWED BY. <CARRIAGE RETURN> 
WILL TYPE “CONTROL REGISTER ADORESS-* 
iTYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER 
sFOR THE DH1i1 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> + 3 
sPROGRAM WILL TYPE “R* TO INDICATE THAT TESTING HAS STARTED 
SAT THE END OF A PASS, PROGRAM AM WILL TYPE * CZDHD-DO ” 
sAND THEN RESUM TESTING 














-TITLE CZOHD-DO 
000000 ° ABS 
-NLIST MC,.MD,CNOD 
-LIST- ME 
6 900000 . SYMBOLS 
sSWITCH REGISTER OPTIONS 
100000 $W15=100000 3°1,HALT ON ERROR 
040000 S$W14=40000 s*1,LO0P ON CURRENT TEST 
$W13*20000 s°1, INHIBIT ERROR TYPEOUT 
010000 $W1i2=10000 
SW11=4000 s*1, INHIBIT ITERATIONS 
002000 $W10=2000 s*1,ESCAPE TO NEXT TEST ON ERROR 1 3 
001000 SW09=1000 s°1,LO00P WITH CURRENT DATA 
SW08=400 
000100 SW06=100 
SWOS 
SW04=20 
000010 SW03"10 
SWO02=4 
SWOi=2 sRESTART PROGRAM AT SELECTED TEST 
000001 SWOO=1 sRESELECT VECTOR AND CONTROL REGISTER 
sADDRESS AFTER PROGRAM RESTART 


CZOHD - 00 


—— 


1 000000 
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177776 
015120 





sREGISTER DEFINITIONS 


RO=80 sGENERAL REGISTER 

Ri=#1 sGENERAL REGISTER 

R2*s82 sGENERAL REGISTER 

R3=83 sGENERAL REGISTER 

R4=84 sGENERAL REGISTER 

R5=s5 sGENERAL REGISTER 

SP =86 sPROCESSOR ae POINTER 
PC=s87 sPROGRAM COUNTER 


sLOCATION EQUIVALENCIES 

3SWR=177570 sCONSOLE SWITCH REGISTER 
sLIGHTS=177570 ;PDP-11/45 DISPLAY REGISTER 
PS*177776 sPROCESSOR STATUS WORD 
STACK=ENDCOD +200 sSTART OF PROCESSOR STACK 
sINSTRUCTION DEFINITIONS 


PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 
POP1SP=5726 ; PROCESSOR STACK 1 WORD 
PUSHRO = 10046 ACK 


sINCREMENT STACK TWICE 





ee 
SEQ 14 





CZOHD -DO 


-— 
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000000 
000200 


.ENOR 








sTRAPCATCAER FOR ILLEGAL INTERRUPTS 


“REPT 200 


.* 
HALT 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK FIND CAUSE 


AUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
Saree STACK TO FIND CAUSE 

TEO TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
7: EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
:EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
SEXAMINE STACK TO FIND CAUSE 
TED TRAP 





TRAP T 
SEXAMINE STACK TO FIND CAUSE 
sUNEXPEC TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
TED TRAP TO THIS LOCATION 
FIND CAUSE 








TED 
sEXAMINE STACK TO FIND 


sEXAMINE STACK TO Cc 
sUNEXPEC AP TO THIS LOCATION 
sEXAMINE STACK Cc 


NE 
sUNEXPECTED TRAP TO THIS LOCATION 





SEQ 15 


-— 
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000000 
000152 
000000 








sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 

s UNEXPECTED Hg 4 a THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 

s UNEXPECTED TRAP. i ae Blea 


s EXAMINE 


STACK TO F 


CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
O FIND CAUSE 


3; EXAMINE 
3s EXAMINE Ag T 





FIND 
TRAP TO THIS LOCATION 


iEXAMINE. STACK TO FIND CAUSE 


TRAP TO THIS LOCATION 
FIND 





TRAP TO THIS LOCATION 
FIND CAUSE 


TO FIND CAUSE 
TRAP TO THIS LOCATION 
FIND 


XPEC 
sEXAMINE STACK TO 
sUNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 


sEXAMINE STACK TO 
UNEXPECTED 


TRAP ¥ THIS LOCATION 
FIND CAUSE 


sEXAMINE STACK TO FIND C 





—— 





MACRO VO4.00 27-JUN-85 12:54:12 PAGE 15-2 


000332 
000000 
000336 
000000 
000342 











sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CA 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CA 


sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 
XAMINE ST FI 


3E ACK TO FIND CAUSE 
| UNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 





0 CAUSE 
s UNEXPECTED i; TO THIS LOCATION 
s EXAMINE STACK TO FIND 
CTEO pings TO THIS LOCATION 


IND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 





SEQ 17 


—— 











sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


FIND CAU 

sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

s;UNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 
CK FIND CAU 


sEXAMINE STACK 


FIND CAUSE 
TED TRAP TO THIS LOCATION 

vEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO hong —o 


sEXAMINE STACK TO FIND CAUSE 


SEQ 18 
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—— 
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0006 76 
000000 


000000 
000772 
000000 
000776 
000000 


.SETVEC 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
s;UNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP aa 


sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 





SEQ 19 


- 


Oul wlfd 
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000200 
000167 


000600 


.*200 


. TRPDEF 


TRPDEF 


TRPOEF 


TRPDEF 


TRPDEF 


TRPDEF 


TRPDEF 


TRPDEF 


-START 





sSTANDARD INTERRUPT VECTORS 
JMP START ;GO TO START OF PROGRAM 


sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND STARTING 
sAT LOCATION “TRPTAB“ 


SCOPE, */SCOPE LOOP AND ITERATION HANDLER/ 

— ;SCOPE LOOP AND ITERATION HANDLER 
sYo 

TYPE, t/TELETYPE OUTPUT ROUTINE/ 

TYPE =TRAP+Y sTELETYPE OUTPUT ROUTINE 
aVe 

OCTASC,t/OCTAL TO ASCII CONVERSION/ 


— sOCTAL TO ASCII CONVERSION 
2Ve 
INSTR, t/INPUT ASCII STRING/ 
= sINPUT ASCII STRING 
2Ve 
on gy INPUT ERROR/ 
— ;STRING INPUT ERROR 
2Ve 


PARAM, t/CONVERT STRING TO OCTAL, CHECK LIMITS/ 

PARAM= TRAP + ;CONVERT STRING TO OCTAL, CHECK LIMITS 
sje 

SAVOSP,t/SAVE RO-RS, PC/ 

3 VOSP=TRAP+Y sSAVE RO-RS, PC 

sYe 

RESOS, t/RESTORE RO-R5/ 

RESOS*TRAP+Y sRESTORE RO-f5 
sT¢ 

SCOPE1,t/CHECK FOR FREEZE ON CURRENT DATA/ 

SCOPE1=TRAP+' ;CHECK FOR FREEZE ON CURRENT DATA 
ZT ¢ 

CODEM1 

MOV _— DHSSR, DHSLR ;SET UP ADDRESS OF SILO 
INC _ OHSLR sSTATUS REGISTER HIGH BYTE 


CODEM1 
DHRVEC .3,.4.DHSCR,.O,177776,7, 10, ° ol 





SEQ 20 











SEQ 21 
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0 001000 -=1000 


sPROGRAM INITIALIZATION 
sLOCK OUT INTERRUPTS 

sSET UP PROCESSOR STACK 

;SET UP POWER FAIL VECTOR 
sCLEAR PROGRAM FLAGS AND COUNTS 
s;TYPE TITLE MESSAGE 


-LIF NB <>, sDETERMINE MEMORY SIZE 
-LIF NB <>, ;SET UP TRACE TRAP RETURN 
001000 177570 SWR: -WORD 177570 ; SWITCH DHSCR ADDRESS ; 4 
001002 177570 LIGHTS: .WORD 177570 ; LIGHTS ; 4 
3; 4 
001004 012767 000340 176764 START: MOV #340 ,PS ;LOCK OUT INTERRUPTS 
001012 012706 015120 MOV @STACK ,SP ;SET UP PROCESSOR STACK 
001016 012702 000024 MOV #24 ,R2 ; POINT TO VECTOR AREA 3; 7 
001022 012722 014070 MOV OPFAIL ,CR2)+ ;SET UP POWER FAIL TRAP » F 
001026 012722 000340 MOV #340, (R2)+ sSERVICE AT LEVEL 7 ; 7 
001032 012722 012716 MOV MERRORS, CR2)+ sERROR HANDLER 3; 7 
001036 012722 000340 MOV #340, (R2)+ sSERVICE AT LEVEL 7 ; 7 
001042 012722 013130 MOV STRPSRV, CR2)>+ ;GENERAL HANDLER DISPATCH SERVICE ; 7 
001046 012712 000340 MOV #340, (R2) y SERVICE AT LEVEL 7 ; 8 
001052 005067 012774 CLR STFLG ;CLEAR TEST START FLAG 
001056 005067 012730 CLR PASCNT ;CLEAR PASS COUNT 
001062 005067 012726 CLR ERRCNT ;CLEAR ERROR COUNT 
001066 005067 012716 CLR ERRFLG ;CLEAR ERROR FLAG 
001072 005067 012712 CLR ERRFLG ;CLEAR LAST ERROR PC 
001076 016746 176702 MOV 4, -(SP) ; PUSH TRAP VECTOR ; 4 
001102 016746 176700 MOV 6, -C(SP) ; 4 
001106 012767 001122 176670 MOV #13, 4 ; SET UP TRAP VECTOR ; 4 
001114 005777 177660 TST aSidR ; TEST SWITCH REGISTER ADDRESS ; 4 
edge 000405 me BR 2s ; IF SUCCESSFUL, LEAVE IT ALONE 3 
: ; 
001122 012767 000176 177650 MOV #176. SWR s get TO SOFT SWITCH DHSCR 3; 4 
coites 005067 177646 on CLR LIGHTS ; 0 MEANS WE ARE NOT GOING TO USE — ; 4 
: H 
001134 005726 TST (SP)+ ; CLEAN UP STACK ; 4 
001136 005726 TST (SP)>+ ; 4 
001140 012667 176642 MOV (SP)+, 6 ; 4 
001144 012667 176634 MOV (SP)+, 4 3; 4 
001150 104401 014240 TYPE eMTITLE ;sTYPE TITLE MESSAGE 
001154 005767 012670 TST INIFLG ;CHECK INITIALIZATION FLAG 
-1F NB <DHRVEC> 
001160 001001 BNE VECi :IF NOT 0, CHECK SWITCHES 
ore sFOR REINITIALIZATION 
BNE BEGIN ;IF NOT 0, START TEST 
~ENDC 
IF NB <> 
SIZE: CLR RO 
MOV $23,804 ;SET UP TIME OUT RETURN 
i$: TST CRO)+ sWILL TRAP WHEN NO MEMORY — | 
BR i$ pega RESPONDED, CONTINUE 
2s: MOV RO ,HCORE ;RO CONTAINS ADDRESS OF 
SUB @2 ,HCORE sNON EXISTANT MEMORY ; 9 


MOV 06,804 sRESTORE TRAPCATCHER 





r 


CZOHD -DO 


001162 
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000404 


032777 
001445 


012701 


005267 


000001 177606 


000300 
000302 
000004 


001000 


012506 
012502 


012550 
012542 


012506 


-ENOC 
-IF NB 


sCHECK FOR PROGRAM START AT SELECTED ADDRESS 


<> 
: MOV #1$,8010 
SXT RO 
MOV ORTT, TRTRET 
BR 2s 
MOV RTI, TRTRET 
MOV #12,8010 
MOV #TRTRET , 8016 
<DHRVEC> 
<> 
BR VEC2 
TST INIFLG 
BEQ VEC2 
BIT @SWO00 , BSWR 
BEQ BEGIN 
MOV #300 ,R1 
MOV #302 ,R2 
MOV 04 RS 
MOV R2,(R1) 
CLR R2) 
ADD R3,R1 
ADD R3,R2 
CMP Ri ,#1000 
BNE 
INSTR 
4 ag 
300 
770 
OHRVEC 
3 
4 
INSTR 
— 
177776 
fe 
7 
10 
<j1> 
CODEM1 
MOV DHSSR, DHSLR 
INC R 
TST INIFLG 
BNE BEGIN 
COM INIFLG 
sPROGRAM START 





SEQ 22 


300 11/40, 11/45 INSTRUCTI 
:11/40,45 RTT RETURN FROM TRACE TRAP 


31105,10,20 RTI RETURN FROM TRACE TRAP 
sRESTROE TRAPCATCHER 
;SET UP TRACE TRAP VECTOR 


s;SET UP ILLEGAL a RETURN 


sIF INITIALIZE FLAG=0 
sGET VECTOR AND CSR ADDRESS 


;IF SWOO=1, GET NEW VECTOR 3 4 
sAND CSR 


sRESTORE TRAPCATCHER 
sIN FLOATING VECTOR AREA 


sINPUT ADDRESS OF DEVICE VECTOR 
sMESSAGE “VECTOR ADDRESS-” 
;CONVERT STRING TO OCTAL 

3LOW LIMIT 


sHIGH LIMIT 

sLOCATIONS TO BE FILLED 
sNUMBER OF LOCATIONS 

3LSB MASK 

sINPUT ADDRESS OF DEVICE CSR 
sMESSAGE “CONTROL REGISTER ADDRESS-”* 
sCONVERT STRING TO OCTAL 

;LOW LIMIT 

;HIGH LIMIT 

;LOCATIONS TO BE FILLED 

sNUMBER OF LOCATIONS 

3LSB MASK 


; 3 


sSET UP ADDRESS OF SILO 
sSTATUS REGISTER HIGH BYTE 


sIF INITIALIZATION FLAG 
oa eee 
; 








‘- 





000340 176462 BEGIN: 


015120 
000002 


001400 
012470 


012462 
014513 
012416 


177452 


-BYTE 
-BYTE 


012440 i$: 


2$: 
3$: 


#340 ,PS 
@STACK ,SP 
arcs 





;LOCK OUT INTERRUPTS 

;SET UP PROCESSOR STACK 
;IF SWO1=1 

;GET PC FOR PROGRAM START 
;GET PC 

sMESSAGE “TEST PC” 
sCONVERT STRING TO OCTAL 


sNORMAL START, TEST 1 
sIF LOOPING, BYPASS TYPEOUT 


sTYPE “R” TO INDICATE START 
sSTART TESTING 





SEQ 23 





001400 


MACRO V04.00 


012767 
012767 
012767 
012767 
000002 
012705 
012700 


012701 
012704 


00 

012777 
010077 
005067 
005067 
012767 
012777 
005777 


012220 
012316 
012314 
012310 


012272 


176370 
012410 
012376 


012372 


012402 
012272 


012264 


012342 
012236 


012266 


LINE =LINE+1 
BITX=BITX+BITX 
-LIST 


-ENDR 
SPEED 


TS \XN,10,5$,1$% 
Ti: Vv 


IF NB 
-ENOC 


XN*XNo1 


1%: 
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20 
\LINE, \BITX,3,¢//,2000, t/TRANSMITTER/ 


\LINE, \BITX,3,*//,2000, t/TRANSMITTER/ 
s TRANSMITTER LINE SPEED SELECTION TEST 


TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 0 


sVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 


#340 ,PS 
#10, ICOUNT 
#5% , ESCAPE 


01%, FREEZ1 


#1 ,R4 
He 1 e TIME1L 
en 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 
sLINE O WILL BE TESTED 


sCONSTANT FOR SELECTION 
sOF INITIAL (LOWEST) SPE 


SEQ 24 


ED 
315 DIFFERENT SPEEDS WILL BE TESTED 
SPEED 


sBINARY CODE FOR INITIAL 

sINITIALIZE COMPARISION VALUE 

sCLEAR INTERFACE 

sSELECT LINE 0 FOR TESTING 
LEAR BUS ADDRESS 


sSELECT LINE SPEED 
sCLEAR TRANSMITTER TIME TIMER 
sSET UP NO CLOCK TIMER 


sSET BAR BIT FOR LINE 0 
sT0 START TRANSMISSION 
sWAIT FOR TRANSMITTER 
370 FINISH 


sUPDATE TRANSMITTER TIMER 
sUPDATE NO CLOCK TIMER 


sTRANSMITTER DID NOT FINISH, ERROR 


sVERIFY THAT TRANSMITTER 


sWAS FASTER AT THIS SELECTED SPEED 











SEQ 25 
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sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
001574 HLT a s TRANSMITTER TIMING ERROR FOR 
001574 104002 EMT 2 aes i 
; 
001576 104410 43: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
016767 012256 012252 MOV TIME2, TIMEL sSET UP FOR NEXT COMPARISION 
INC R4 sSELECT NEXT SPEED 
001610 062700 002000 ADD #2000, RO 
001614 0053501 DEC R1 
001616 0013517 BNE i$ 
001620 104400 5$: SCOPE sCHECK FOR ITERATIONS, LOOP 
000001 LINE =_INE+1 
000002 BITX-BITX+BITX 
001622 SPEED \LINE,\BITX,3,t//,2000,t/TRANSMITTER/ 
sTRANSMITTER LINE SPEED SELECTION TEST 
sTRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 1 
sVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
001622 TS \XN,10,59,1% 
001622 012767 000340 176146 Te: MOV #340 ,,PS sDISABLE ALL INTERRUPTS 
001650 012767 900010 012166 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
001636 012767 002042 012154 — A #5% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ 
001644 012767 001700 012150 nee MOV #16 ,FREEZ1 sSET UP TO LOOP WITH DATA : 3 
XN=XNeo1 
012705 000001 MOV #1 ,R5 sLINE 1 WILL BE TESTED 
012700 002000 MOV #2000, RO sCONSTANT FOR SELECTION 
sOF INITIAL (LOWEST) SPEED 
012701 000015 MOV 315 DIFFERENT SPEEDS WIL! BE TESTED 
012704 000001 MOV sBINARY CODE FOR INITIAL SPEED 
012767 177777 012160 MOV sINITIALIZE COMPARISION VALUE 
012777 004000 012050 1%: MOV sCLEAR INTERFACE 
Sasayy 012044 MOV i T LINE 1 FOR TESTING 
005077 0 CLR sCLEAR BUS ADDRESS 
012777 177775 012042 MOV re UP Ba atal 
010077 012052 MOV sSELECT LINE SPEED 
005067 012126 CLR sCLEAR TRANSMITTER TIME TIMER 
005067 012124 CLR SET UP NO CLOCK TIMER 
012767 10 012120 MOV 
012777 012014 MOV sSET BAR BIT FOR “om a 
005777 011776 24: TST TER 
100412 BMI 3$ 
7? 012074 INC TIME2 sUPDATE TRANSMITTER TIMER 
7 012072 INC TEMP 1 S UPDATE NO CLOCK TIMER 
001376 BNE 2s 
005367 012066 DEC TEMP2 
001365 BNE 23 
HLT i sTRANSMITTER DID NOT FINISH, ERROR 
104001 EMT i 
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000405 
026767 
103401 


012767 
012767 
000004 
012705 
012700 
012701 
012704 
012767 
012777 
010577 
005077 
012777 
010077 
005067 
005067 
012767 
012777 
005777 


Bf 
012050 012044 3%: cr 
BLO 
HLT 
EMT 
43. SCOPE1 
012034 0612030 yd 
002000 ADD 
DEC 
BNE 
5$: SCOPE 
LINE =-LINE+1 
BITX=BITX+BITX 
SPEED 
fA 
TS \XN,10,58,1% 
000340 175724 T3: MOV 
000010 011744 
002264 011732 MOV 
-IF NB <1$> 
002122 011726 Vv 
-ENDC 
XN=XNeo1 
000002 MOV 
002000 MOV 
000015 MOV 
000001 MOV 
177777 011736 MOV 
011626 1%: MOV 
011622 MOV 
011624 CLR 
177775 011620 MOV 
011610 MOV 
011704 CLR 
011702 CLR 
10 011676 MOV 
011572 MOV 
011554 2s: TST 
BHI 
011652 INC 
116 INC 
BHE 
011644 DEC 


sVERIFY THAT TRANSMITTER 
sWAS FASTER AT THIS SELECTED SPEED 
; (NUMBER TIME2 


TRANSMITTER TIMING ERROR FOR 


\LINE, \WBITX,3,#//,2000,*t/TRANSMITTER/ 


sVERIFY THAT THE AMOUN OF TIME TAKEN I 











OR INI 
sINITIALIZE COMPARISION VALUE 
sCLEAR INTERFACE 
sSELECT LINE 2 FOR TESTING 
CLEAR BUS ADDRESS 





sLINE 1 

;sCHECK FOR FREEZE ON CURRENT DATA 
sSET UP FOR NEXT COMPARISION 
sSELECT NEXT SPEED 


sCHECK FOR ITERATIONS, LOOP 


LINE 2 
DONE OCCURS oH a SPEED 
T THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


sLINE 2 WILL BE TEST 


sSET BAR BIT FOR LINE 2 
TRANSMISSION 


F70 START 
sWAIT FOR 
'T0 FINISH 


sUPDATE TRANSMIT 
sUPDATE NO CLOCK TIMER 















SEQ 27 
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O02222 001365 BNE 2% 
002224 HLT 1 s TRANSMITTER DID NOT FINISH, ERROR 
002224 104001 EMT 1 
002226 000405 BR 43 
002230 026767 011626 011622 33: CMP TIME2, TIME1 sVERIFY THAT TRANSMITTER 
002236 103401 BLO 44 sWAS FASTER AT THIS gp thy SPEED 
sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
002240 HLT 2 sTRANSMITTER TIMING ERROR FOR 
002240 104002 EMT 2 ‘wes 
5 
002242 104410 4$: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
002244 016767 011612 011606 MOV TIME2, TIMEL sSET UP FOR NEXT COMPARISION 
002252 S2 INC R4 sSELECT NEXT SPEED 
002254 062700 002000 ADD #2000, RO 
002260 005301 DEC Ri 
002262 001317 BNE is 
002264 104400 S$: SCOPE sCHECK FOR ITERATIONS, LOOP 
000003 LINE =LINE+1 
000010 BITX=*BITX+BITX 
002266 SPEED \LINE,\BITX,3.¢//,2000,t/TRANSMITTER/ 
s TRANSMITTER LINE SPEED SELECTION TEST 
sTRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 3 
sVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
002266 TS \XN,10,58,18 
002266 012767 000340 175502 T4: MOV PS sDISABLE ALL INTERRUPTS 
002274 012767 000010 011522 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
002302 012767 002506 011510 — ate $, sSET UP TO ESCAPE TO NEXT TEST 
; <1$> 
002310 012767 002344 011504 ear MOV #13, FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000005 XN=XNeo1 
002316 012705 000003 
0127C5 002000 
012701 000015 
002332 012704 000001 
002336 012767 177777 011514 
012777 011404 1%: 
002352 010577 011400 
002356 005077 011402 
012777 177775 011376 
002370 010077 011366 
002374 005067 011462 
002400 005067 011460 {SET Aye NO CLOCK TIMER 
002404 012767 000010 011454 
002412 012777 000010 011350 #10, SOHBAR sSET BAR BIT FOR LINE $3 
:TO START TRANSMISSION 
002420 005777 011332 2s: TST SOHSCR sWAIT FOR TRANSMITTER 
:TO FINISH 
002424 100412 BMI 3$ 
002426 005267 011430 INC TIME2 sUPDATE TRANSMITTER TIMER 








012767 
012767 
012767 
012767 
000006 
012705 
012700 


012701 


011426 
011422 


011404 011400 33: 


011370 
002000 


011110 


011364 


175260 
011300 
011266 


011262 


011272 
011162 


011154 


011232 
011126 


43: 





SCOPE 


LINE =LINE+1 


BITX=BITX+BITX 
SPEED 


.IF NB 


-ENDC 
XN=XNeol 


13: 


23: 





2 
2 


aia 
#2000, RO 


Ri 
is 


$ 
TIME2, TIME 
as 


sUPDATE NO CLOCK TIMER 





SEQ 28 


sTRANSMITTER DID NOT FINISH, ERROR 


sVERIFY THAT TRANSMITTER 


sWAS FASTER AT THIS SELECTED SPEED 


sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
s TRANSMITTER TIMING ERROR FOR 


sLINE 3 
;CHECK FOR FREEZE ON vs ad DATA 


sSET UP FOR NEXT COMPARISI 
sSELECT NEXT SPEED 


sCHECK FOR ITERATIONS, LOOP 


\LINE, \BITX, 3, t//,2000, */TRANSMITTER/ 
sTRANSMITTER LINE SPEED SELECTION TEST 


: TRANSMIT 


TS \XN,10,58,19 
TS 


<1$> 
MOV 


#13, FREEZ1 





PS 
#10, ICOUNT 
ESCAPE 


3 CHARACTERS AT A SELECTED SPEED ON LINE 4 
sVERIFY THAT TRANSMITTER DONE 


ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 


sSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 


SPEED 
s;CLEAR TRANSMITTER TIME TIMER 
:SET UP NO CLOCK TIMER 


:SET BAR BIT FOR LINE 4 
3TO START TRANSMISSION 
sWAIT FOR TRANSMITTER 











Ps I ee ES ER SE PRC seewe ees a em ee ee 















—— 











SEQ 29 
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370 FINISH 
100412 BMI 3$ 
005267 011206 INC TIME2 sUPDATE TRANSMITTER TIMER 
005267 011204 INC TEMP 1 sUPDATE NO CLOCK TIMER 
001370 BNE es 
005367 011200 DEC TEMP2 
001365 BNE 2s 
HLT 1 s TRANSMITTER DID NOT FINISH, ERROR 
104001 EMT 1 
000405 BR 43 
026767 011162 011156 38: CMP TIME2, TIME1 sVERIFY THAT TRANSMITTER 
103401 BLO 43 sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
;LESS THAN TIME1) 
HLT 2 s TRANSMITTER TIMING ERROR FOR 
104002 EMT 2 
sLINE 4 
104410 43: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
016767 011146 011142 Vv TIME2, TIMEL sSET UP FOR NEXT COMPARISION 
00 INC Ra sSELECT NEXT SPEED 
062700 002000 ADD #2000, RO 
005301 DEC Ri 
001317 BNE is 
104400 5%: SCOPE sCHECK FOR ITERATIONS. LOOP 
000005 LINE =LINE+i 
000040 BITX=BITX+BITX 
SPEED \LINE,\BITX,3,%//,2000,*/TRANSMITTER/ 
sTRANSMITTER LINE SPEED ery ty TEST 
S TRANSMIT 3 CHARACTERS A 5 
sVERIFY THAT TRANSMITT Ye Bag RE 
TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
Ts \XN,10,58,18 
012767 000340 175036 T6: HOV PS sDISABLE ALL INTERRUPTS 
012767 000010 011056 #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
012767 003152 011044 ti a #53 ,. ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
” <i$> 
012767 003010 011040 MOV 61% ,FREEZ1 3SET UP TO LOOP WITH DATA 3; 3 
000007 XN=XNe 1 
012705 MOV #55 
012700 002000 MOV e 
012701 000015 MOV 
012704 000001 MOV 
012767 177777 011050 MOV 
012777 010740 1%: MOV 
010577 010734 MOV 
005077 010736 CLR 
012777 177775 010732 MOV 
010077 010722 MOV INE SPEED 
005067 011016 CLR ;CLEAR TRANSMITTER TIME TIMER 
005067 011014 CLR EMP :SET UP NO CLOCK TIMER 
012767 000010 011010 MOV #10, TEMP2 








—— 





NLL ELLIE LO EEL! (DT OEE ST TD AE I TTC AED TT TTC A eR RES 





SEQ 30 
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012777 
005777 


012767 
012767 
012767 
012767 
000010 


012705 
012700 


012777 
010077 


000040 
010666 
010764 
010762 
010756 


010740 


010724 
002000 


010704 


010734 


010720 


174614 
010634 
010622 


010616 


010626 
010516 


010510 





MOV #40, OHBAR sSET BAR BIT FOR LINE 5 
;T0 START TRANSMISSION 
23: TST SOHSCR sWAIT FOR TRANSMITTER 
310 FINISH 
BMI 3$ 
INC TIME2 sUPDATE TRANSMITTER TIMER 
INC TEMP 1 sUPDATE NO CLOCK TIMER 
BNE 23 
DEC TEMP2 
BNE 2% 
ol : s TRANSMITTER DID NOT FINISH, ERROR 
BR 4$ 
3$: CMP TIME2, TIME1 sVERIFY THAT TRANSMITTER 
BLO as sWAS FASTER AT THIS SELECTED SPEED 
sC(NUMBER OF COUNTS IN TIME2 
;LESS THAN TIME1) 
HLT 2 s TRANSMITTER TIMING ERROR FOR 
EMT 2 
sLINE 5 
4%: SCOPE1 CHECK FOR FREEZE ON CURRENT DATA 
MOV TIME2, TIME sSET UP FOR NEXT COMPARISION 
R4 sSELECT NEXT SPEED 
ADD #2000, RO 
DEC Ri 
BNE is 
S$: sCHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=*BITX+BITX 
SPEED \LINE,\BITX,3, t//,2000,t/TRANSMITTER/ 


TIME Ss 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,5%,18 
T?: MOV 


#340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
ae oy 05% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
% <1$> 
MOV #1%,FREEZ1 ;SET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNel 
MOV 66,R5 sLINE 6 WILL BE TESTED 
MOV »RO sCONSTANT FOR SELECTION 
sOF INITIAL CLOWEST) 
MOV #15,R1 315 DIFFERENT 
MOV #1 ,R4 F Y CODE FOR INI 
MOV @-1, TIME sINITIALIZE COMPARISION VALUE 
1%: MOV #8IT11.,8DHSCR ;CLEAR INTERFACE 
MOV ° R sSELECT LINE 6 FOR TESTING 
CLR A ;CLEAR 
MOV ¢-3, @DHBC :SET UP TO TRANSMIT 


ERS 
sSELECT LINE SPEED 





-— 





LL EE TEL LD (IE ITT LE ET EE TE I SO AONE 





SEQ 31 
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012767 


012767 
012767 
012767 


012767 
000011 
012705 
012700 


012701 


010574 
010572 


010542 
010540 


010534 


010516 


010502 
002000 


000340 
000010 
003616 
003454 
000007 
002000 
000015 
000001 
177777 


004000 
010270 
010272 


010566 
010462 


010512 


010476 


174372 
010412 


010374 


010404 
010274 





CLR TIME2 ;CLEAR TRANSMITTER TIME TIMER 
CLR TEMP 1 ;SET UP NO CLOCK TIMER 
MOV #10, TEMP2 
MOV #100, BDHBAR ;SET BAR BIT FOR LINE 6 
;T0 START TRANSMISSION 
2$: TST @DHSCR ;sWAIT FOR TRANSMITTER 
370 FINISH 
BMI 3$ 
INC TIME2 sUPDATE TRANSMITTER TIMER 
INC TEMP1 sUPDATE NO CLOCK TIMER 
BNE es 
DEC TEMP2 
BNE 2s 
a : ; TRANSMITTER DID NOT FINISH, ERROR 
BR 4$ 
3$: CMP TIME2, TIME1L ;VERIFY THAT TRANSMITTER 
BLO 4s sWAS FASTER AT THIS SELECTED SPEED 
;CNUMBER OF COUNTS IN TIME2 
;LESS THAN TIME1) 
aha : s TRANSMITTER TIMING ERROR FOR 
;LINE 6 
4$: SCOPE1 ;CHECK FOR FREEZE ON CURRENT DATA 
MOV TIME2, TIMEL sSET UP FOR NEXT COMPARISION 
INC R4 ;SELECT NEXT SPEED 
ADD #2000, RO 
DEC re 
5$: SCOPE sCHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
SPEED \LINE,\BITX,3,t//,2000,t/TRANSMITTER/ 
; TRANSMITTER LINE SPEED SELECTION TEST 
sTRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 7 
sVERIFY THAT T TTER DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LE 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,5$,1$ 
T10: MOV PS sDISABLE ALL INTERRUPTS 
MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
<a as #5%,ESC ;SET UP TO ESCAPE TO NEXT TEST 
<1$> 
MOV €1%,FREEZ1i ;SET UP TO LOOP WITH DATA ss 
-ENDC 
XN=XNe1 
MOV 67 ,R5 ;LINE 7 WILL BE TESTED 
MOV #2000,R sCONSTANT FOR SELECTION 
a ;OF INITIAL (LOWEST) SPEED 
MOV #15,R1 315 DIFFERENT SPEEDS WILL BE TESTED 
MOV €1,R4 ;BINARY CODE FOR INITIAL SPEED 
MOV #-1,TIMEL INITIALIZE COMPARISION VALUE 
1$: MOV eBITi1, 8DHSCR ;CLEAR INTERFACE 
MOV RS, @DHSCR :SELECT LINE 7 FOR TESTING 
CLR ;CLEAR BUS ADDRESS 











SEQ 32 
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003472 012777 177775 010266 MOV @-3, 80HBC ;SET UP TO TRANSMIT 
33 CHARACTERS 
003500 010077 010256 MOV RO, 9@DHLPR SELECT LINE SPEED 
003504 005067 010352 CLR TIME? { TRANSMITTER TIME TIMER 
003510 005067 010350 CLR TEMP 1 K TIMER 
003514 012767 000010 010344 MOV #10, TEMP2 
003522 012777 000200 010240 MOV #200 , BDHBAR ;SET BAR BIT FOR LINE 7 
sT0 START TRANSMISSION 
003530 005777 010222 2s: TST S8DHSCR sWAIT FOR TRANSMITTER 
310 FINISH 
003534 100412 BMI 3$ 
003536 005267 010320 INC TIME2 sUPDATE TRANSMITTER TIMER 
003542 005267 010316 INC TEMP 1 sUPDATE NO CLOCK TIMER 
003546 001370 BNE es 
003550 005367 010312 DEC TEMP 2 
003554 001365 BNE 2s 
003556 HLT i s TRANSMITTER DID NOT FINISH, ERROR 
003556 104001 EMT 1 
003560 000405 BR A$ 
003562 026767 010274 010270 3%: CMP TIME2, TIME sVERIFY THAT TRANSMITTER 
003570 103401 BLO 4s sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
;LESS THAN TIME1) 
0C3572 HLT 2 s TRANSMITTER TIMING ERROR FOR 
003572 104002 EMT 2 cues 5 
; 
003574 104410 4$: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
003576 016767 010260 010254 MOV TIME2, TIMEL sSET UP FOR NEXT COMPARISION 
003604 005204 INC R4 sSELECT NEXT SPEED 
003606 062700 002000 ADD #2000, RO 
003612 005301 DEC Ri 
003614 001317 BNE i$ 
003616 104400 S$: s;CHECK FOR ITERATIONS, LOOP 
000010 LINE =LINE+1 
000400 BITX=BITX+BITX 
003620 SPEED \WLINE,\BITX,3,¢t//,2000,t/TRANSMITTER/ 
sTRANSMITTER LINE SPEED SELECTION TEST 
s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON 10 
sVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED 
VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
003620 TS \XN,10,5$,18 
003620 012767 000340 174150 Ti11: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
003626 012767 900010 - 010170 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
003634 012767 010156 mee re #53, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
<1$> 
003642 012767 003676 010152 wine MOV #1%,FREEZ1 sSET UP TO LOOP WITH DATA 3 3 
000012 XN=XNeo1 
003650 012705 000010 #10.R5 sLINE 10 WILL BE TESTED 
003654 012700 002000 MOV #2000, RO sCONSTANT FOR SELECTION 
INIT LOWEST) SPEED 
003660 012701 000015 MOV #15,R1 315 DIFF T SPEEDS WILL BE TESTED 
003664 012704 000001 MOV #1 ,R4 sBINARY CODE FOR INITIAL SPEED 
003670 012767 177777 010162 MOV #-1, TIME1 S INITIALIZE COMPARISION VALUE 


— 
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012777 


012767 


012767 
012767 
012767 


012767 


004000 
010046 
010050 
177775 


010052 


010036 
002000 


010052 


010044 


010122 
010016 


010046 


010032 


sCLEAR INTERFACE 
sSELECT LINE 10 FOR TESTING 
sCLEAR BUS ADDRESS 


EO 
;CLEAR TRANSMITTER TIME TIMER 
sSET UP NO CLOCK TIMER 


;SET BAR BIT FOR LINE 10 
370 START TRANSMISSION 
sWAIT FOR TRANSMITTER 
370 FINISH 


sUPDATE TRANSMITTER TIMER 
sUPDATE NO CLOCK TIMER 


s TRANSMITTER DID NOT FINISH, ERROR 


;VERIFY THAT TRANSMITTER 

;WAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 

sLESS THAN TIME1) 

s TRANSMITTER TIMING ERROR FOR 


sLINE 10 

sCHECK FOR FREEZE ON CURRENT DATA 
sSET UP FOR NEXT COMPARISION 
sSELECT NEXT SPEED 


;CHECK FOR ITERATIONS, LOOP 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


1$: MOV $8IT11,8DHSCR 
MOV RS ,@DHSCR 
CLR @DOHE.A 
MOV #-3,QDHBC 
MOV RO ,@DHLPR 
CLR TIME2 
CLR TEMP 
MOV #10, TEMP2 
MOV #400, 
2s: TST 8OHSCR 
BMI 3$ 
INC TIME2 
INC ate 
DEC TEMP? 
BNE 2$ 
HLT i 
EMT 
BR 4&3 
3$: CMP TIME2, TIME1L 
BLO 4$ 
HLT e 
EMT 2 
4$: SCOPE1 
MOV TIME2, TIMEL 
INC Ra 
ADD #2000, RO 
DEC Ri 
BNE is 
5$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
SPEED \LINE,\BITX,3, t//,2000, t/TRANSMITTER/ 
; TRANSMITTER LINE SPEED SELECTION TE 
s TRANSMIT 3 CHARACTERS AT A SELECTED: SPEED ON LINE 11 
;VERIFY THAT TRANSMITTER DONE 
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,5$.1$% 
Ti2: MOV #340 ,PS 
MOV #10, ICOUNT 
MOV 65%, ESCAPE 
-IF NB <1$> 
MOV #1%,FREEZ1 
-ENDC 
XN*XNel 


MOV #11,R5 
MOV #2000, RO 





sLINE 11 WILL BE TESTED 


sCONSTANT FOR SELECTION 
sOF INITIAL (LOWEST) SPEED 


i eel 





-— 








SEQ 34 
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012701 


012767 


005777 


012767 
012767 
012767 
012767 


000014 


007630 


007614 
002000 


007740 
007630 


007622 


007700 
007574 


007624 


007610 





MOV #15,R1 :15 DIFFERENT SPEEDS WILL BE TESTED 
MOV #1,R4 sBINARY CODE FOR INITIAL SPEED 
MOV @-1, TIMEL sINITIALIZE COMPARISION VALUE 
1$: MOV @B1IT11,@DHSCR ;CLEAR INTERFACE 
MOV RS ,@DHSCR sSELECT LINE 11 FOR TESTING 
CLR S0HBA ;CLEAR BUS ADDRESS 
MOV @-3, 8DHBC ;SET UP TO TRANSMIT 
33 CHARACTERS 
MOV RO, @DHLPR ;SELECT LINE SPEED 
CLR TIME2 ;CLEAR TRANSMITTER TIME TIMER 
CLR TEMP 1 sSET UP NO CLOCK TIMER 
MOV #10, TEMP2 
MOV #1000, SDHBAR sSET BAR BIT FOR LINE i1 
370 START TRANSHISSION 
2s: TST S0HSCR sWAIT FOR TRANSMITTER 
370 FINISH 
BMI 3$ 
INC TIME2 sUPDATE TRANSMITTER TIMER 
INC TEMP 1 sUPDATE NO CLOCK TIMER 
BNE rs | 
DEC TEMP2 
BNE 2s 
3 : ; TRANSMITTER DID NOT FINISH, ERROR 
AR 4$ 
3%: CMP TIME2, TIME1 sVERIFY THAT TRANSMITTER 
BLO ds sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
HLT 2 sTRANSMITTER TIMING ERROR FOR 
EMT 2 ‘ 
8 
$: s;CHECK FOR FREEZE ON CURRENT DATA 
MOV TIME2, TIMEL ;SET UP FOR ..<XT COMP, 
INC Qa ;SELECT NEXT SPEED 
ADD »RO 
DEC RL 
BNE is 
5%: sCHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
SPEED \LINE,\BITX,3,t//,2000,?t/TRANSMITTER/ 
s TRANSMITTER LINE A ag y TEST 
sTRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 12 
sVERIFY THAT TRANSHETTER DONE OCCURS AT THE SELECTED SPEED 
oF THAT THE AMOUN OF TIME TAKEN IS LESS 
T THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,58,18 
T13: MOV €340 PS :DISABLE ALL 
#10, ICOUNT ;SET UP FOR 10 ITERATIONS 
poe at #5? , ESCAPE SSET UP TO ESCAPE TO NEXT TEST 
<1$> 
MOV 01% ,FREEZ1 ;SET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNol 





— 
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012705 
012700 


012701 


005777 


012767 
012767 
012767 


000012 
002000 


007406 


007372 
002000 


007516 
007406 


007400 


007456 
007352 


007402 


007366 


1$: MOV 
23: 


EMT 

BR 
38; CMP 

BLO 





5%: 

LINE =LINE+1 
BITX*BITX+BITX 
SPEED 








#12,R5 


#2000, RO 


#15,R1 
#1,R4 


@-1 ° TIME1 
#8IT11,@DHSCR 
RS ,@DHSCR 


8DHBA 
@-3, SOHBC 


SEQ 35 


sLINE 12 WILL BE TESTED 


sCONSTANT FOR SELECTION 

sOF INITIAL (LOWEST) SPEED 

:15 DIFFERENT SPEEDS WILL BE TESTED 
sBINARY CODE FOR INITIAL SPEED 
sINITIALIZE COMPARISION VALUE 
sCLEAR INTERFACE 

sSELECT LINE 12 FOR TESTING 

CLE ADORESS 


ED 
sCLEAR TRANSMITTER TIME TIMER 
sSET UP NO CLOCK TIMER 


sSET BAR BIT FOR LINE i2 
370 START TRANSMISSION 
sWAIT FOR TRANSMITTER 
TO FINISH 


sUPDATE TRANSMITTER TIMER 
sUPGATE NO CLOCK TIMER 


sTRANSMITTER DID NOT FINISH, ERROR 


8 FASTER AT THIS SELECTED SPEED 
3¢ IN TIME2 
sLESS THAN 


sLINE i2 
sCHECK FOR FREEZE ON CURRENT DATA 
SET A FOR NEXT COMPARISION 

T NEXT SPEED 


sCHECK FOR ITERATIONS. LOOP 


\LINE,. \BITX, 3, %//,2000, */TRANSMITTER/ 
‘eran LINE SPEED SELECTION TEST 






. AMOUN OF SS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 


MOV 
MOV 
-IF NB <1$> 


TS \XN,10,59,18 
000340 173262 114: MOV 
000010 007302 
004726 007270 


@340,PS 
#10, ICOUNT 
CAPE 








SABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
:SET UP TO ESCAPE TO NEXT TEST 





bis ein dial aeiaics Oils cial ancl panini 


004730 
004730 





LE LD SL SLE ELITE, | ET LE EDIE I A I OEE BEI LO AE LEEDS A ELI TE 
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012767 


000015 
012705 
012700 


012701 


012767 


005777 


012767 


004564 


000013 
002000 


007164 


007150 
002000 


007264 


007274 
007164 


007156 


007234 
007130 


007160 


007144 


MOV #1$,FREEZ1 
.ENDC 
XN*XNel 
MOV #13,R5 
MOV #2000, RO 
MOV #15,R1 
MOV #1,R4 
MOV #-1, TIMEL 
i$: MOV @61IT11,@DHSCR 
MOV RS ,@DHSCR 
CLR @OHBA 
MOV @-3, SDHBC 
MOV RO, SDHLPR 
CLR TIME2 
CLR TEMP 1 
MOV #10, TEMP2 
MOV ‘ 
2$: TST @DHSCR 
BMI 33 
INC TIME2 
INC TEMP 1 
BNE 2s 
DEC TEMP2 
BNE 2s 
HLT i 
EMT i 
BR 44 
38: CMP TIME2, TIMES 
BLO 4s 
HLT 2 
EMT 2 
43: SCOPE1 
MOV TIME2, TIMEL 
INC RG 
ADD #2000,K0 
DEC Ri 
BNE is 
5$: SCOPE 
LINE =_LINE +1 
BITX=BITX+BITX 
SPEED 


000340 173040 T15: 


TS \XN,10,5$%,18 
MOV 





SEQ 36 


sSET UP TO LOOP WITH DATA 3s 3 
sLINE 13 WILL BE TESTED 
CONST 


SPEED 
315 DIFFERENT SPEEOS WILL BE TESTED 
sBINARY CODE FOR INITIAL SPEED 
; INITIALIZE COMPARISION VALUE 
sCLEAR INTERFACE 
sSELECT LINE 13 FOR TESTING 

LEAR BUS ADDRESS 


:TO START TR SION 
;WAIT FOR TER 

37 

3; UPDATE TIMER 


TRANSMITTER 
sUPDATE NO CLOCK TIMER 


sTRANSMITTER DID NOT FINISH, ERROR 


sVERIFY THAT TRANSMITTER 
sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 


sLESS THAN TIME1) 
s TRANSMITTER TIMING ERROR FOR 


sLINE 13 

sCHECK FOR FREEZE ON CURRENT DATA 
sSET UP FOR NEXT COMPARISION 
sSELECT NEXT SPEED 


sCHECK FOR ITERATIONS, LOOP 


\LINE, \8ITX, 3, //,2000, */TRANSMITTER/ 
ee a LINE SPEED SELECTION TEST 


| THE AMOUN OF TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 


#340 PS 


sDISABLE ALL INTERRUPTS 
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012767 
012767 


012767 
000016 
012705 
012700 


012701 


00 
012767 


005777 


000010 
005150 


005006 


006742 


006726 
002000 


007060 
007046 


007042 


007052 
006742 


006734 


007012 
006706 


006736 


006722 


MOV #10, ICOUNT 
MOV @5$, ESCAPE 


-IF NB <1$> 
MOV #1%,FREEZ1 
-ENOC 
XN*XNel 
MOV #14,R5 
MOV 42000, RO 
MOV #15,R1 
MOV #1 ,.R4 
MOV @-1, TIME 
i$: MOV @6IT11,@0HSCR 
MOV RS .@0H 
CLR & 
MOV 6-3, HBC 
MOV RO, @DHLPR 
CLR TIME2 
CLR TEMP 1 
MOV #10, TEMP2 
MOV i ° 
23: TST SOHSCR 
BMI 33 
INC TIME2 
INC 1 
BNE 23 
DEC TEMP2 
BNE es 
HLT 1 
EMT i 
BR Gy 
38: CMP TIME2, TIME1 
BLO ag 
HLT 2 
EMT 2 
4$: SCOPE1 
MOV TIME? , TIMEL 
INC Re 
ADD 02000, RO 
DEC R1 
BNE is 
5%: SCOPE 
LINE =LINE +1 
BITX=BITX+BITX 
SPEED 





SEQ 37 


sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3 3 


sLINE 14 WILL BE TESTED 


sCONSTANT FOR SELECTION 

sOF INITIAL (LOWEST) SPEED 

315 DIFFERENT SPEEDS WILL BE TESTED 
38 Y CODE FOR INITIAL SPEED 

S INITIALIZE COMPARISION VALUE 
sCLEAR INTERFACE 

sSELECT LINE 14 FOR TESTING 


SPEED 
sCLEAR TRANSMITTER TIME TIMER 
SET UP NO CLOCK TIMER 


sSET BAR BIT FOR LINE 14 
START SION 


:T0 TRANSMIS 
so FOR TRANSMIT 
; 


sUPDATE TRANSMITTER TIMER 
sUPDATE NO CLOCK TIMER 


s TRANSMITTER DID NOT FINISH, ERROR 
3; VERIFY 


T TRANSMITTER 
sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 


sLINE 14 


sCHECK FOR ITERATIONS, LOOP 


\LINE, \BITX,3, *//,2000, t/TRANSMITTER/ 


s TRANSMITTER LINE SPEED SELECTION TEST 
TERS AT A SELECTED SPEED ON LINE 15 
AT THE SELECTED SPEED 


IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 


ar a ee 


SEQ 38 
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TS \XN,10,5%,1$ 
000340 172616 T16: MOV #340 ,.PS sDISABLE ALL INTERRUPTS 
000010 (06636 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
005372 006624 ~* 2 = #5$ , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
x <1$> 
005230 006620 —— MOV #1%,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
XN=XNeol 
000015 MOV #15,R5 sLINE 15 WILL BE TESTED 
002000 MOV ‘ sCONSTANT FOR SELECTION 
sO0F INITIAL CLOWEST) SPEED 
000015 MOV #15,R1 315 DIFFERENT SPEEDS WILL BE TESTED 
000001 MOV #1,R4 sBINARY CODE FOR INITIAL SPEED 
177777 006630 MOV @-1,TIME1 S INITIALIZE COMPARISION VALUE 
006520 1%: MOV @681T11,80HSCR sCLEAR INTERFACE 
0065 MOV » SDHSCR sSELECT LINE 15 FOR TESTING 
006516 CLR SOHBA ;CLEAR BUS ADDRESS 
177775 006512 MOV #-3,@DHBC sSET UP TO TRANSMIT 
33 CHARACTERS 
006 MOV RO, SDHLPR sSELECT LINE SPEED 
006576 CLR TIME2 sCLEAR TRANSMITTER TIME TIMER 
006574 CLR TEMP1 sSET UP NO CLOCK TIMER 
000010 006570 MOV #10, TEMP2 
020000 006464 MOV #20000, :SET BAR BIT FOR LINE 15 
3TO START TRANSMISSION 
006446 2%: TST GOHSCR sWAIT FOR TRANSMITTER 
370 FINISH 
BMI 33 
006544 INC TIME2 sUPDATE TRANSMITTER TIMER 
006542 oo _* sUPDATE NO CLOCK TIMER 
006536 DEC TEMP2 
BNE 23 
HLT i s TRANSMITTER DID NOT FINISH, ERROR 
rf 
006520 006514 3%: CMP TIME2, TIMEL sVERIFY THAT TRANSMITTER 
BLO sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
HLT 2 sTRANSMITTER TIMING ERROR FOR 
EMT 2 
sLINE i5 
4%: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
006504 006500 MOV TIME2, TIMEL sSET UP FOR NEXT COMPARISION 
INC R4 sSELECT NEXT SPEED 
002000 ADO 42000 , RO 
DEC Ri 
BNE i$ 
S$: SCOPE sCHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
SPEED \LINE,\BITX,3,%t//,2000,t/TRANSMITTER/ 


sTRANSMITTER LINE SPEED SELECTION TEST 
s TRANSMIT 3 CHARACTERS AT A SELECTED SPEED ON LINE 16 





CZOHO -00 
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sVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED 
sVERIF ¥ THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT TuIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 


TS \XN,10,5%.,19 
T1i7: MOV 








012767 000340 172374 #340 ,.PS sDISABLE ALL INTERRUPTS 
012767 000010 006414 MOV #10, ICOUNT :SET UP FOR 10 ITERATIONS 
012767 005614 006402 _— pe #5% , ESCAPE - sSET UP TO ESCAPE TO NEXT TEST 
g <1$> 
012767 005452 006376 ane MoV #1%,FREEZ1 ;SET UP TO LOOP WITH DATA 3 3 
XN=XNeol 
012705 000016 MOV #16.R5 sLINE 16 WILL BE TESTED 
012700 002000 MOV #2000, RO sCONSTANT FOR SELECTION 
sOF INITIAL (LOWEST) SPEED 
012701 000015 MOV 315 DIFFERENT SPEEDS WILL BE TESTED 
012704 000001 MOV sBINARY CODE FOR INITIAL SPEED 
012767 177777 006406 MOV sINITIALIZE COMPARISION VALUE 
012777 004000 006276 i$: MOV sCLEAR INTERFACE 
010577 006272 MOV sSELECT LINE 16 FOR TESTING 
005077 006274 CLR SOHBA sCLE Ss 
012777 177775 006270 MOV @-3, @DHBC sSET UP TO TRANSMIT 
33 CHARACTERS 
010077 006260 MOV sSELECT LINE SPEED 
7 006354 CLR TIME2 sCLEAR TRANSMITTER TIME TIMER 
005067 006352 CLR TEMP 1 sSET UP NO CLOCK TIMER 
012767 000010 006346 MOV #10, TEMP2 
012777 040000 006242 MOV #40000 , @DHBAR sSET BAR BIT FOR LINE 16 
sTO START TRANSMISSION 
005777 006224 2s; TST @OHSCR sWAIT FOR TRANSMITTER 
3T0 FINISH 
100412 BMI 33 ' 
005267 006322 INC TIME2 sUPDATE TRANSMITTER TIMER 
7 006320 INC TEMP 1 sUPDATE NO CLOCK TIMER 
001370 BNE 2s 
7 006314 DEC TEMP2 
001365 BNE 2g 
HLT i sTRANSMITTER OID NOT FINISH, ERROR 
104001 EMT i 
000405 BR 4% 
026767 006276 006272 3%: “np TIME2, TIME1 sVERIFY THAT TRANSMITTER 
103401 BLO as sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 


sLESS THAN TIME1) 
sTRANSMITTER TIMING ERROR FOR 





104002 
sLINE 16 
4%: sCHECK FOR FREEZE ON CURRENT DATA 
016767 006262 006256 sSET UP FOR NEXT COMPARISION 
sSELECT NEXT SPEED 
005801 
001317 
104400 5$: sCHECK FOR ITERATIONS, LOOP 
000017 LINE =LINE+1 
100000 SITX°BITX+BITX 
SPEED \LINE.\BITX.3,%//,2000, t/TRANSMITTER/ 

















SEQ 40 








CZOHD - DO MACRO VO4.00 27-JUN-85 12:54:12 PAGE 19-16 
s TRANSMITTER LINE SPEED SELECTION TEST 
s TRANSMIT 3 CHARACTERS AT A ook SPEED ON LINE 17 
sVERIFY THAT TRANSMITTER DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
005616 TS \XN,10,58,18 
005616 012767 000340 172152 T20: MOV 340 ,PS sDISABLE ALL INTERRUPTS 
005624 012767 000010 006172 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
005632 012767 006036 006160 — ae @5$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ < > 
005640 012767 005674 006154 — MOV 13, FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
000021 XN=XNeol 
005646 012705 000017 sLINE 17 WILL BE TESTED 
005652 012700 002000 sCONSTANT FOR SELECTION 
sOF INITIAL (LOWEST) SPE 
005656 012701 000015 315 DIFF T SPEEDS WILL BE TESTED 
012704 000001 5 Y CODE FOR INITIAL 
012767 177777 006164 sINITIALIZE COMPARISION VALUE 
005674 012777 006054 18: sCLEAR ERF ACE 
005702 010577 006050 sSELECT LINE 17 FOR TESTING 
0C5706 005077 006052 ;CLE ADDRESS 
005712 012777 177775 006046 . UP — 
8 
005720 010077 006036 sSELECT LINE SPEED 
005724 005067 006132 sCLEAR TRANSMITTER TIME TIMER 
005730 7 006130 sSET UP NO CLOCK TIMER 
005734 012767 000010 006124 
005742 012777 100000 006020 sSET BAR Bu FOR LINE 17 
sT0 START TRANSMISSION 
005750 005777 006002 2s: sWAIT FOR TRANSMITTER 
;TO FINISH 
005754 100412 
005267 006100 sUPDATE TRANSMITTER TIMER 
005762 005267 006076 sUPDATE NO CLOCK TIMER 
005766 001370 
005770 7 006072 
005774 001365 
005776 sTRANSMITTER DID NOT FINISH, ERROR 
005776 104001 
006000 000405 
006002 026767 006054 006050 3%: ;VERIFY THAT TRANSMITT 
005010 103401 3;WAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
:LESS THAN TIME1) 
006012 HLT 2 ; TRANSMITTER TIMING ERROR FOR 
006012 104002 EMT S 
sLINE 17 
006014 104410 4$: SCOPEL ;CHECK FOR FREEZE ON CURRENT DATA 
006016 016767 9006040 006034 MOV TIME2, TIME1 sSET UP FOR NEXT COMPARISION 
006024 005204 INC Ra sSELECT NEXT SPEED 
006026 062700 002000 ADD #2000, RO 
006032 005701 DEC Ri 
006034 001317 BNE i$ 
006036 104400 5$: SCOPE ;CHECK FOR ITERATIONS, LOOP 











SEQ 41 
CZDHD -DO MACRO VO4.00 27-JUN-85 12:54:12 PAGE 19-17 
000020 LINE =LINE+1 
000000 BITX=BITX+BITX 
16 000020 XLINE=LINE 
17 000000 LINE =0 
18 000000 XBIT =BITX 
19 000001 BITX=1 
21 000020 REPT 20 
22 SPEED \LINE. \BITX, 1, */B/,2100, + /RECEIVER/ 
24 LINE =LINE+1 
25 BITX=BITX+BITX 
26 LIST 
27 “ENDR 
006040 SPEED \LINE,\BITX,1, t/B/.2100, t/RECEIVER/ 
;RECEIVER LINE SPEED SELECTION TEST 
; TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 0 
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
006040 TS \XN,10,59,18 
006040 012767 000340 171730 121: | MOV 340,PS ;DISABLE ALL INTERRUPTS 
0C6046 012767 000010 005750 MOV = @10, ICOUNT sSET UP FOR 10 ITERATIONS 
006054 012767 006260 005736 oe ESCAPE sSET UP TO ESCAPE TC NEXT TEST 
‘ < > 
006062 012767 006116 005732 MOV «#14, FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000022 XN=XNe 1 
006070 012705 MOV —s-@0., RS sLINE © WILL BE TESTED 
006074 012700 002100 MOV @2100, RO ;CONSTANT FOR SELECT 
OF INITIAL (LOWEST) SPEED 
006100 012701 000015 MOV = @15, Ri 31 WILL BE TESTED 
006104 012704 000001 #1.R4 sBINARY CODE FOR INITIAL 
006110 012767 177777 005742 sINITIALIZE COMPARISION VALUE 
006116 012777 004000 005632 1%: ;CLEAR INTERFACE 
006124 010577 005626 sSELECT LINE 0 FOR TESTING 
006130 005077 005630 ;CLEAR BUS ADDRESS 
006134 012777 177777 005624 3SET UP TO TRANSMIT 
21 CHARACTERS 
006142 010077 005614 sSELECT LINE SPEED 
006146 005067 005710 ;CLEAR RECEIVER TIME TIMER 
006152 005067 005706 ;SET UP NO CLOCK TIMER 
006156 012767 000010 005702 
006164 012777 000001 005576 ;SET BAR BIT FOR LINE 0 
;T0 START TRANSMISSION 
006172 105777 005560 2s: sWAIT FOR RECEIVER 
;T0 FINISH 
006176 100412 BMI 33 
006200 005267 005656 INC _ TIME2 sUPDATE RECEIVER TIMER 
006204 005267 005654 INC TEMP1 ;UPDATE NO CLOCK TIMER 
006210 001370 BNE —_ «a2 
006212 005367 005650 DEC TEMP2 
006216 001365 BNE 28 
006220 HLT 1 ;RECEIVER DID NOT FINISH, ERROR 
006220 104001 EMT 1 








~- 








SEQ 42 
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026767 005632 005626 3%: 


103401 


012767 
012767 
012767 


012767 


005616 
002100 


005612 


171506 
005526 
005514 
005510 


005520 
005410 


005402 


005460 
005354 





cP TIME2, TIME1 sVERIFY THAT RECEIVER 
BLO 4$ sWAS FASTER AT THIS SELECTED SPEED 
;C(NUMBER OF COUNTS IN TIME2 
;sLESS THAN TIME1) 
HLT 2 sRECEIVER TIMING ERROR FOR 
EMT 2 
sLINE O 
4$: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
MOV TIME2, TIMEL ;SET UP FOR NEXT COMPARISION 
INC Ra sSELECT NEXT SPEED 
ADD #2100,R0 
DEC Ri 
BNE is 
S$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1i 
BITX=BITX+BITX 
SPEED \LINE,\BITX,1,*/8/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
sTRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 1 
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,58,18 
T22: MOV @340 ,PS sDISABLE ALL INTERRUPTS 
MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
— mh #53, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <1$> 
MOV #13, FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNel 
MOV sLINE 1 WILL BE TESTED 
MOV sCONSTANT FOR SELE 
;0F INITIAL (LOWEST) SPEED 
MOV 315 DIFFERENT WILL BE TESTED 
MOV sBINARY CODE FOR INITIAL 
MOV sINITIALIZE COMPARISION VALUE 
is: MOV sCLEAR INTERFACE 
MOV sSELECT LINE 1 FOR TESTING 
CLR CLEAR BUS ADDRESS 
MOV ie UP TO TRANSMIT 
3 
MOV sSELECT LINE 
CLR ;CLEAR RECEIVER TIME TIMER 
ae 3SET UP NO CLOCK TIMER 
Vv 
MOV ° 3SET BAR BIT FOR LINE 1 
3TO START TRANSMISSION 
2$: TST SOHSCR sWAIT FOR RECEIVER 
3TO FINISH 
BMI 3$ 
INC TIME2 sUPDATE RECEIVER TIMER 
- pag sUPDATE NO CLOCK TIMER 








a ST SS ee Ss SSS SSS SSS SE CS Ss SS SSS 











4 
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006442 HLT 1 sRECEIVER DID NOT FINISH, ERROR 
006442 104001 EMT 1 
006444 0004 BR 4$ 
006446 026767 005410 005404 33: CMP TIME2, TIME1 sVERIFY THAT RECEIVER 
006454 103401 BLO as sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
006456 HLT 2 sRECEIVER TIMING ERROR FOR 
006456 104002 EMT a ie a 
; 
006460 104410 4$: SCOPE1 ;sCHECK FOR FREEZE ON CURRENT DATA 
006462 016767 005374 005370 MOV TIME2, TIME1 sSET UP FOR NEXT COMPARISION 
006470 INC R4 sSELECT NEXT SPEED 
006472 062700 002100 ADD €2100,Ro 
006476 005301 DEC Ri 
006500 001317 BNE i$ 
006502 104400 S$: SCOPE sCHECK FOR ITERATIONS, LOOP 
000002 LINE =LINE+1 
000004 BITX=BITX+BITX 
006504 SPEED \LINE,\BITX,1,*/B/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
sTRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 2 
sVERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 
;sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
006504 TS \XN,10,58,18 
006504 012767 000340 171264 123: MOV #340,PS sDISABLE ALL INTERRUPT 
006512 012767 000010 005304 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
006520 012767 006724 005272 — ate 5% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
IF <1$> 
006526 012767 006562 005266 MOV #1$,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000024 XN=XNe1 
006534 012705 000002 MOV sLINE 2 WILL BE TESTED 
006540 012700 002100 MOV sCONSTANT FOR SELECTION 
sOF INITIAL (LOWEST) SPE 
006544 012701 000015 MOV s15 OI WILL BE TESTED 
006550 012704 000001 MOV sBINARY CODE FOR INITIAL SPEED 
006554 012767 177777 005276 MOV sINITIALIZE COMPARISION VALUE 
006 012777 004000 005166 1%: MOV :;CLEAR INTERFACE 
006570 010577 005162 MOV sSELECT LINE 2 FOR TESTING 
006574 005077 005164 CLR :;CLEAR BUS ADDRESS 
006600 012777 177777 005160 MOV sSET UP TO TRANSMIT 
31 CHARACTERS 
006606 010077 005150 MOV sSELECT LINE SPEED 
006612 005067 005244 CLR TIME2 sCLEAR RECEIVER TIME TIMER 
006616 005067 005242 CLR i sSET UP NO CLOCK TIMER 
006622 012767 000010 005236 MOV #10, TEMP2 
006630 012777 000004 005132 MOV #4 , BOHBAR sSET BAR BIT FOR LINE 2 
:T0 START TRANSMISSION 
006636 105777 005114 2s: TSTB SOHSCR sWAIT FOR RECEIVER 
:TO FINISH 
006642 100412 BMI 3$ 
006644 005267 005212 INC TIME2 sUPDATE RECEIVER TIMER 
006650 005267 005210 INC TEMP 1 sUPDATE NO CLOCK TIMER 


CZOHD - D0 


-— 
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012767 
012767 
012767 
012767 
000025 
012705 
012700 


012701 


012767 
012777 


105777 


BNE $ 
005204 DEC TEMP2 
BNE 2$ 
HLT i sRECEIVER DID NOT FINISH, ERROR 
EMT 1 
BR 4$ 
005166 005162 33: CMP TIME2, TIME1L ;VERIFY THAT RECEIVER 
BLO 4$ ;WAS FASTER AT THIS SELECTED SPEED 
;CNUMBER OF COUNTS IN TIME2 
;LESS THAN TIME1) 
HLT 2 sRECEIVER TIMING ERROR FOR 
EMT 2 
sLINE 2 
4$: SCOPE1 ;CHECK FOR FREEZE ON CURRENT DATA 
005152 005146 MOV TIME2, TIME1 ;SET UP FOR NEXT COMPARISION 
INC R4 ;SELECT NEXT SPEED 
002100 ADD #2100,RO0 
DEC Ri 
BNE i$ 
5$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
SPEED \LINE,\BITX,1,t/B/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
; TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 3 
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,5$,1$% 
000340 171042 T24: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
000010 005062 MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
007146 005050 - prt #5$ ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
= < 2 
007004 005044 mune MOV #1$,FREEZi ;SET UP TO LOOP WITH DATA 3 3 
XN=XNel 
000003 MOV #3 ,R5 ;LINE 3 WILL BE TESTED 
002100 MOV $2100,RO sCONSTANT FOR SELECTION 
;0F INITIAL (LOWEST) SPEED 
000015 HOV #15,R1 315 DIFFERENT SPEEDS WILL BE TESTED 
000001 MOV 61,R4 sBINARY CODE FOR INITIAL SPEED 
177777 005054 MOV #-1,TIME1 VINITIALIZE COMPARISION VALUE 
004000 004744 13%: MOV #61111 ,80HSCR sCLEAR INTERFACE 
004740 MOV RS ,@DHSCR ;SELECT LINE 3 FOR TESTING 
004742 CLR @DHBA ;CLEAR BUS ADDRESS 
177777 004736 MOV #-1,8D0HBC ;SET UP TO TRANSMIT 
31 CHARACTERS 
004726 MCV RO, SDHLPR sSELECT LINE SPEED 
005022 CLR TIME2 ;CLEAR RECEIVER TIME TIMER 
005020 CLR TEMP 1 ;SET UP NO CLOCK TIMER 
000010 005014 MOV #10, TEMP2 
000010 004710 MOV P ;SET BAR BIT FOR LINE 3 
;T0 START TRANSMISSION 
004672 2s: TSTB @DHSCR ;WAIT FOR RECEIVER 
310 FINISH 
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100412 
005267 


012767 
012767 
012767 
012767 
000026 
012705 
012700 
012701 


012777 


010077 
005067 
005067 
012767 
012777 


004770 
004766 


004762 


004744 


004730 
002100 


004740 


004724 


170620 
004640 
004626 
004622 


004632 
004522 


004514 


004572 
004466 


SEQ 45 
BMI 3$ 
INC TIME2 ;UPDATE RECEIVER TIMER 
INC TEMP1 ;UPDATE NO CLOCK TIMER 
BNE 2s 
DEC TEMP2 
BNE 2$ 
HLT i sRECEIVER DID NOT FINISH, ERROR 
EMT i 
BR 4$ 
3%: CMP TIME2, TIME1L ;sVERIFY THAT RECEIVER 
BLO 4$ sWAS FASTER AT THIS SELECTED SPEED 
;CNUMBER OF COUNTS IN TIME2 
;LESS THAN TIME1) 
HLT 2 sRECEIVER TIMING ERROR FOR 
EMT 2 
sLINE 3 
4$: SCOPE1 ;CHECK FOR FREEZE ON CURRENT DATA 
MOV TIME2, TIME1 ;SET UP FOR NEXT COMPARISION 
INC R4 sSELECT NEXT SPEED 
ADD $#2100,R0 
DEC Ri 
BNE 1$ 
5$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
SPEED \LINE,\BITX,1,t/8/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
;TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 4 
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,5$,1$% 
T25: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
fe #5$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
u <i$> 
MOV #1$,FREEZ1 ;SET UP TO LOOP WITH DATA 3; Ss 
-ENDC 
XN=XNol 
MOV 64,R5 ;sLINE 4 WILL BE TESTED 
MOV #2100,R0 sCONSTANT FOR SELECTION 
;OF INITIAL (LOWEST) SPEED 
MOV $15,Ri 315 DIFFERENT SPEEDS WILL BE TESTED 
MOV #1 ,R4 sBINARY CODE FOR INITIAL SPEED 
MOV #-1, TIME sINITIALIZE COMPARISION VALUE 
1$: MOV #81IT11,8DHSCR sCLEAR INTERFACE 
MOV RS .8OHSCR sSELECT LINE 4 FOR TESTING 
CLR SOHBA ;CLEAR BUS ADDRESS 
MOV $-1,80HBC ;SET UP TO TRANSMIT 
31 CHARACTERS 
MOV RO, @DHLPR sSELECT LINE SPEED 
CLR TIME2 ;CLEAR RECEIVER TIME TIMER 
CLR TEMP 1 sSET UP NO CLOCK TIMER 
MOV #10, TEMP2 
MOV $20, SDHBAR ;SET BAR BIT FOR LINE 4 
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012767 
012767 
012767 
012767 
000027 
012705 
012700 


012701 


005077 
012777 


010077 
005067 


004450 


004522 


004506 
002100 


000340 
000010 
007612 


007450 


000005 
002100 
000015 
000001 
177777 
004000 
004274 
004276 
177777 


004262 
004356 


004516 


004502 


170376 
004416 
004404 


004400 


004410 
004300 


004272 


23: 


3%: 


4$: 


TSTB 


SCOPE 


LINE =LINE+1 


BITX=BITX+BITX 
SPEED 


TS \XN,10,5$,18 
T26: V 


-IF NB 
-ENOC 


XN=XNeo1 


1$: 


3 
TIME2, TIME1 
4s 


2 

2 

TIME2, TIME1 
R4 

#2100,RO0 

Ri 

i$ 


SEQ 46 


;TO START TRANSMISSION 
sWAIT FOR RECEIVER 
;TO FINISH 


sUPDATE RECEIVER TIMER 
sUPDATE NO CLOCK TIMER 


sRECEIVER DID NOT FINISH, ERROR 


sVERIFY THAT RECEIVER 

sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 

sLESS THAN TIME1) 

sRECEIVER TIMING ERROR FOR 


;LINE 4 

;CHECK FOR FREEZE ON CURRENT DATA 
;SET UP FOR NEXT COMPARISION 
;sSELECT NEXT SPEED 


sCHECK FOR ITERATIONS, LOOP 


\LINE, \BITX, 1, t/B/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 


TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON 
DONE OCCURS AT THE SELECTED SPEED 


sVERIFY THAT RECEIVER 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 


340.PS 
#10, ICOUNT 
5% , ESCAPE 


#1$,FREEZ1 


LINE 5 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sLINE S WILL 


BE TESTED 
aes FOR SELECTION 


sBINAR 
S INITIALIZE COMPARISION VALUE 
sCLEAR INTERFACE 

;SELECT LINE 5 FOR TESTING 
sCLEAR BUS ADDRESS 

SET UP TO TRANSMIT 

31 CHARACTERS 

sSELECT LINE SPEED 

sCLEAR RECEIVER TIME TIMER 














SEQ 47 
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005067 
012767 
012777 


105777 


012767 
012767 
012767 


012767 


004354 
000010 
000040 


004226 
004324 


004322 
004316 


004300 


004264 
002100 


177777 


004350 
004244 


004274 


004260 


170154 
004174 
004162 


004156 


004166 
004056 


004050 

















CLR TEMP 1 ;SET UP NO CLOCK TIMER 
MOV #10, TEMP2 
MOV #40, BDHBAR ;SET BAR BIT FOR LINE 5 
310 START TRANSMISSION 
2s: TSTB 8DHSCR sWAIT FOR RECEIVER 
;T0 FINISH 
BMI 3$ 
INC TIME2 sUPDATE RECEIVER TIMER 
INC TEMP 1 ;UPDATE NO CLOCK TIMER 
BNE 2$ 
DEC TEMP2 
BNE 2$ 
HLT i sRECEIVER DID NOT FINISH, ERROR 
EMT i 
BR as 
3$: CMP TIME2, TIME1 ;sVERIFY THAT RECEIVER 
BLO 4$ ;WAS FASTER AT THIS SELECTED SPEED 
;CNUMBER OF COUNTS IN TIME2 
;LESS THAN TIME1) 
HLT 2 sRECEIVER TIMING ERROR FOR 
EMT 2 
s;LINE 5 
4$: SCOPE1 ;CHECK FOR FREEZE ON CURRENT DATA 
MOV TIME2, TIMEL sSET UP FOR NEXT COMPARISION 
INC R4 sSELECT NEXT SPEED 
ADD $2100,RO0 
DEC Ri 
BNE is 
5$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
SPEED \LINE,\BITX.1,¢/B/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
i AT A SELECTED LINE 6 
DONE OCCURS AT THE SELECTED SPEED 
TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,53,1% 
T27: MOV @340,PS sDISABLE ALL INTERRUPTS 
MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
a poy 05% , ESCAPE :SET UP TO ESCAPE TO NEXT TEST 
a <1$> 
MOV 41% ,FREEZ1 :SET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN*XNel1 
MOV 66,R5 sLINE 6 WILL BE TESTED 
MOV #2100, RO sCONSTANT FOR SELECTION 
3;0F INITIAL CLOWEST) SPEED 
MOV #15,R1 315 SPEEDS WILL BE TESTED 
MOV 61 .R4 sBINARY CODE FOR INITIAL SPEED 
MOV #-1, TIMEL sINITIALIZE COMPARISION VALUE 
is: MOV #681711 ,80HSCR 
MOV RS ,SDHSCR 
CLR SOHBA US ss 
MOV @-1,DHBC ;SET UP TO TRANSMIT 








et EN 
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31 CHARACTERS 
007716 010077 004040 MOV RO, @DHLPR sSELECT LINE SPEED 
007722 OO0SO0E7 004134 CLR TIME2 sCLEAR RECEIVER TIME TIMER 
007726 005067 004132 CLR TEMP 1 sSET UP NO CLOCK TIMER 
007732 012767 000010 004126 MOV #10, TEMP2 
007740 012777 000100 004022 MOV #100, 8DHBAR ;SET BAR BIT FOR LINE 6 
;TO START TRANSMISSION 
007746 105777 004004 2s: TSTB SDHSCR sWAIT FOR RECEIVER 
sT0 FINISH 
007752 100412 BMI 3$ 
007754 005267 004102 INC TIME2 sUPDATE RECEIVER TIMER 
007760 005267 004100 INC TEMP 1 sUPDATE NO CLOCK TIMER 
007764 001370 BNE 2$ 
007766 005367 004074 DEC TEMP2 
007772 001365 BNE 2s 
007774 HLT 1 sRECEIVER DID NOT FINISH, ERROR 
007774 104001 EMT 1 
007776 000405 BR as 
010000 026767 004056 004052 33: CMP TIME2, TIME sVERIFY THAT RECEIVER 
010006 103401 BLO 43 sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
010010 HLT 2 sRECEIVER TIMING ERROR FOR 
010010 104002 EMT 2 oe 
; 
010012 104410 43: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
010014 016767 004042 004036 MOV TIME2 , TIME1 sSET UP FOR NEXT COMPARISION 
010022 INC R4 sSELECT NEXT 
010024 062700 002100 ADD #2100,R0 
010030 DEC Ri 
010032 001317 BNE is 
010034 104400 S$: SCOPE sCHECK FOR ITERATIONS, LOOP 
000007 LINE=LINE+1 
000200 TX 
010036 SPEED \LINE, \BITX,1,*/8/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
sTRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 7 
T DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
iA SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
010036 TS \XN,10,58,18 
010036 012767 000340 167732 130: MOV 0340,PS sDISABLE ALL 
010044 012767 000010 003752 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
010052 012767 010256 003740 a as #5% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
; <1$> 
010060 012767 010114 003734 MOV 1% , FREEZ1 sSET UP TO LOOP WITH DATA 7 3 
000031 XN=XNeo1 
010066 012705 7 #7 ,R5 sLINE 7 WILL BE TESTED 
010072 012700 002100 MOV #2100, RO sCONSTANT FOR 
:0F INITIAL (LOWEST) 
010076 012701 000015 MOV #15,R1 : WILL BE TESTED 
010102 012704 000001 MOV ’ sBINARY CODE FOR TIAL 
010106 012757 177777 003744 MOV @-1, TIME1 sINITIALIZE COMPARISION VALUE 
010114 012777 004000 003634 1%: MOV #61711, 8DHSCR ;CLEAR INTERFACE 





CZOHD-D0 


010122 


010170 


010174 
010176 


010310 
010314 


010320 





SEQ 49 
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012767 
012777 


105777 


012767 
012767 
012767 


012767 
000032 
012705 
012700 


012701 


003632 
177777 


003634 


003620 
002100 


000340 
000010 
010500 
010336 
000010 
002100 


000015 


003626 


003704 
003600 


003630 


003614 













MOV RS .@DHSCR sSELECT LINE 7 FOR TESTING 
CLR S0HBA ;CLEAR BUS ADDRESS 
MOV @-1,80HBC sSET UP TO TRANSMIT 
31 CHARACTERS 
MOV RO,@DHLPR ;SELECT LINE SPEED 
CLR TIME2 ;CLEAR RECEIVER TIME TIMER 
CLR TEMP 1 ;SET UP NO CLOCK TIMER 
MOV #10, TEMP2 
MOV #200 , 8DHBAR sSET BAR BIT FOR LINE 7 
370 START TRANSMISSION 
2s: TSTB SDHSCR sWAIT FOR RECEIVER 
370 FINISH 
BMI 3 
INC TIME2 sUPDATE RECEIVER TIMER 
ns - al sUPDATE NO CLOCK TIMER 
DEC TEMP2 
BNE 2s 
aA i sRECEIVER DID NOT FINISH, ERROR 
BR 43 
33 CMP TIME2, TIMEL sVERIFY THAT RECEIVER 
BLO &$ sWAS FASTER AT THIS SELECTED SPEED 
;CNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
HLT 2 8 VER TIMING ERROR FOR 
EMT é 
sLINE 7 
$: SCOPE1 s;CHECK FOR FREEZE ON CURRENT DATA 
MOV TIME2, TIMEL sSET UP FOR NEXT COMPARISION 
INC sSELECT NEXT SPEED 
ADD #2100,R0 
DEC Ri 
BNE i$ 
5$: SCOPE ;CHECK FOR ITERATIONS. LOOP 
LINE = INE +i 
BITX*BITX+BITX 
SPEED \LINE,\BITX,1,*/8/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
T AT | LINE 10 
| TED 
IS Less 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,5%,18% 
T3i: MOV 0340 ,PS ISABLE ALL INTERRUPTS 
#10, ICOUNT ;SET UP FOR 10 ITERATIONS 
— Hy 05% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
<1$> 
MOV #13 ,FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
-ENOC 
XN=XNeol 
#10,R5 ;LINE 10 WILL BE TESTED 
MOV #2100,R0 sCONSTANT FOR SELECT 
;0F INITIAL CLOWEST) SPEED 
MOV #15,R1 315 DIFFERENT SPEEOS WILL BE TESTED 
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010324 
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012704 000001 MOV #1,R4 
012767 177777 003522 MOV @-1, TIME1 
012777 004000 003412 1%: MOV #6IT11,@DHSCR 
010577 003406 MOV RS ,@DHSCR 
005077 003410 CLR SOHBA 
012777 177777 003404 MOV @-1, @0HBC 
010077 003374 MOV RO, @DHLPR 
005067 003470 CLR IME2 
005067 003466 CLR TEMP 1 
012767 000010 003462 MOV #10, TEMP2 
012777 000400 003356 MOV €400 , BDHBAR 
105777 003340 23: TSTB SOHSCR 
100412 BMI 3$ 
005267 003436 INC TIME2 

003434 INC TEMP 1 
001370 BNE 2s 
005367 003430 DEC TEMP2 
001365 BNE es 

HLT 1 
104001 EMT 1 
000405 BR 
026767 003412 003406 3%: CMP TIME2, TIME 
103401 BLO $ 
HLT 2 
104002 EMT 2 
104410 4$: SCOPE1 
016767 003376 003372 MOV TIME2, TIMEL 
005204 INC 
062700 002100 ADO #2100, RO 
005301 DEC R1 
001317 BNE is 
104400 S$: SCOPE 
000011 LINE =LINE+1 
001000 BITX=BITX+BITX 
SPEED 





SEQ 50 | 


sBINARY CODE FOR INITIAL SPEED 
sINITIALIZE COMPARISION VALUE 
sCLEAR INTERFACE 

sSELECT LINE 10 FOR TESTING 
sCLEAR BUS ADDRESS 


ED 
sCLEAR RECEIVER TIME TIMER 
sSET UP NO CLOCK TIMER 


sSET BAR BIT FOR LINE 10 
sTO0 START TRANSMISSION 
sWAIT FOR RECEIVER 

3T0 FINISH 


sUPDATE RECEIVER TIMER 
sUPDATE NO CLOCK TIMER 


sRECEIVER DID NOT FINISH, ERROR 


sVERIFY THAT RECEIVER 


3€ OF COUNTS IN TIME2 
sLESS THAN TIME1) 
$ T ERROR FOR 


sLINE 10 

;CHECK FOR FREEZE ON CURRENT DATA 
sSET UP FOR NEXT COMPARISION 
sSELECT NEXT SPEED 


sCHECK FOR ITERATIONS. LOOP 


\LINE,, \BITX,1, */B/ ,2100, t/RECEIVER/ 
TION TEST 


sRECEIVER LINE 


sVERIFY THAT THE 








TIME TAKEN IS LE 


Y Thi — AMOUN OF SS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 


TS \XN,10,58,18 
012767 000340 167266 T32: MOV @340,PS 
012767 000010 003306 #10, ICOUNT 
012767 010722 003274 MOV 05% , ESCAPE 
-IF NB <1$> 
012767 010560 003270 cane MOV #1%,FREEZ1 
000033 XN=XNe1 
012705 000011 MOY #11,R5 





sLINE 11 WILL BE TESTED 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 3 3 
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SEQ 51 


012700 002100 MOV #2100,RO sCONSTANT FOR SELECTION 
sOF INITIAL (LOWEST) SPEED 
012701 000015 MOV #15,R1 315 DIFFERENT SPEEDS WILL BE TESTED 
012704 000001 MOV #1,R4 sBINARY CODE FOR INITIAL SPEED 
012767 177777 003300 MOV @-1, TIME1 sINITIALIZE COMPARISION VALUE 
012777 004000 003170 18%: MOV @81T11,@0HSCR sCLEAR INTERFACE 
010577 003164 MOV RS .@DHSCR sSELECT LINE 11 FOR TESTING 
77 31 CLR SOHBA sCLEAR BUS ADDRESS 
012777 177777 003162 MOV @-1, SOHBC sSET UP TO TRANSMIT 
31 CHARACTERS 
910077 003152 MOV RO, BDHLPR sSELECT LINE SPEED 
7 003246 CLR TIME2 sCLEAR RECEIVER TIME TIMER 
5067 003244 CLR TEMP 1 sSET UP NO CLOCK TIMER 
012767 000010 003240 MOV #10, TEMP2 
012777 001000 003134 MOV » BOHBAR sSET BAR BIT FOR LINE 11 
3710 START TRANSMISSION 
105777 003116 23: TSTB SOHSCR sWAIT FOR RECEIVER 
sTO FINISH 
100412 BMI 3% 
005267 003214 INC TIME2 sUPDATE RECEIVER TIMER 
005267 003212 INC 1 sUPDATE NO CLOCK TIMER 
001370 BNE es 
005367 003206 DEC TEMP2 
001365 BNE 2% 
HLT i sRECEIVER DID NOT FINISH, ERROR 
104001 EMT i 
000405 BR oe 
026767 003170 003164 3%: CHP TIME2, TIME1 sVERIFY THAT RECEIVER 
103401 BLO sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
HLT 2 sRECEI TIMING ERROR FOR 
104002 EMT 2 
sLINE 11 
104410 43: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
016767 003154 003150 MOV TIME2, TIME1 sSET UP FOR NEXT COMPARISION 
0052 INC sSELECT NEXT SPEED 
062700 002100 ADD #2100,RO0 
00530 DEC Ri 
001317 BNE is 
104400 5$: SCOPE sCHECK FOR ITERATIONS, LOOP 
000012 LINE =LINE+1 
BITX=-BITX+BITX 
SPEED \LINE.\BITX,1,+/B/.2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
sTRANSMIT 1 RACTERS AT A SELECTED SPEED ON LINE 12 
sVERIFY THAT RECEI : OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XP 10,5%,18 
012767 000340 167044 T33: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
012767 000010 003064 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
012767 011144 005052 ou “at #53 , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
. <1$> 
012767 011002 003046 MOV #1% ,FREEZ1 sSET UP TO LOOP WITH DATA : 3 








CZDHD - 00 


011146 
011146 
011154 





SEQ S52 
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005067 
012767 


105777 


012767 
012767 


002746 


002732 
002100 


000340 166622 
000010 002642 


003056 
002746 


002740 


003016 
002712 


002742 


002726 











-ENDC 
XN=XNol 
Vv #12,R5 sLINE 12 WILL BE TESTED 
MOV #2100,RO0 sCONSTANT FOR SELECTION 
sOF INITIAL CLOWEST) SPEED 
HOV #15,R1 315 DIFFERENT SPEEDS WILL BE TESTED 
MOV #1 ,R4 sBINARY CODE FOR INITIAL SPEED 
MOV #-1, TIME1 sINITIALIZE COMPARISION VALUE 
1%: MOV #6IT11,30HSCR sCLEAR INTERFACE 
MOV ° a sSELECT LINE i2 FOR TESTING 
CLR BOHEA sCLEAR BUS ADDRESS 
MOV @-1,@DHBC sSET UP TO TRANSMIT 
31 CHARACTERS 
MOV RO, SOHLPR sSELECT LINE SPEED 
CLR TIME2 sCLEAR RECEIVER TIME TIMER 
CLR i sSET UP NO CLOCK TIMER 
MOV #10, TEMP2 
MOV » SOHBAR sSET BAR BIT FOR LINE 12 
sTO0 START TRANSMISSION 
2%: TSTs @DHSCR sWAIT FOR RECEIVER 
3T0 FINISH 
BMI BS 
INC TIME2 sUPDATE RECEIVER TIMER 
INC TEMP1 sUPDATE NO CLOCK TIMER 
BNE 2$ 
DEC TEMP2 
BNE 2s 
HLT i sRECEIVER DIO NOT FINISH, ERROR 
3 
38: CMP TIME2, TIME1 sVERIFY THAT RECEIVER 
BLO sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
pa : sRECEIVER TIMING ERROR FOR 
sLINE i2 
4$: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
MOV TIME2, TIME sSET UP FOR NEXT COMPARISION 
INC RG sSELECT NEXT SPEED 
ADD #2100,RO0 
DEC Ri 
BNE is 
53%: SCOPE sCHECK FOR ITERATIONS, LOOP 
LINE LINE +i 
BITX°BITX+BITX 
SPEED ‘LINE. \ITX.1.*%/6/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
T 2 CHARACTERS AT A SELECTED SPEED ON LINE 13 
sVERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN.10,58.,18 
734: MOV ° sOISABLE ALL INTERRUPTS 





sSET UP FOR 10 ITERATIONS 


MOV 010, ICOUNT 


CZOND - 00 


011162 
011170 


011176 
011202 


011370 
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012767 
012767 
000035 
012705 
012700 


012701 


011366 
011224 
000013 
002100 
000015 
000001 
177777 
004000 
002520 
002522 
177777 


002524 


002510 
002100 


002630 
002624 


002634 
002524 


002516 


002574 
002470 


002504 





oar N@ 


MOV 05%, ESCAPE 
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sSET UP TO ESCAPE TO NEXT TEST 


MOV #1$,FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
.ENOC 
XN*KNeol 
MOV #13,R5 sLINE 13 WILL BE TESTED 
MOV #2100,RO sCONSTANT FOR SELECTION 
sOF INITIAL (LOWEST) SPEED 
MOV #15,R1 315 DIFFERENT SPEEDS WILL BE TESTED 
MOV o R4 sBINARY CODE FOR INITIAL SPEED 
MOV @-1, TIME1 INITIALIZE COMPARISION VALUE 
1s: MOV eBITil, @OHSCR sCLEAR INTERFACE 
MOV RS, @DHSCR sSELECT LINE 13 FOR TESTING 
CLR BOHBA sCLEAR BUS ADDRESS 
MOV @-1,@0H8C sSET UP TO TRANSMIT 
31 CHARACTERS 
MOV RO, @DHLPR sSELECT LINE SPEED 
CLR TIME2 sCLEAR RECEIVER TIME TIMER 
CLR TEMP 1 sSET UP NO CLOCK TIMER 
MOV #10, TEMP2 
MOV #4000, SOHBAR ;SET BAR BIT FOR LINE 13 
370 START TRANSMISSION 
23: TSTB @OHSCR sWAIT FOR RECEIVER 
3:70 FINISH 
BMI RS | 
INC TIME2 sUPDATE RECEIVER TIMER 
INC i sUPDATE NO CLOCK TIMER 
BNE ro | 
DEC TEMP2 
BNE et 
HLT i sRECEIVER DID NOT FINISH, ERROR 
EMT i 
BR &$ 
33: CMP TIME2, TIME1 sVERIFY THAT RECEIVER 
BLO 48 sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
HLT 2 ’ VER TIMING ERROR FOR 
EMT 2 
sLINE 13 
4$: SCOPE1 sCHECK FOR FREEZE ON CURRENT DATA 
MOV TIME2, TIME sSET UP FOR NEXT COMPARISION 
INC ;SELECT NEXT SPEED 
ADD @2100,R0 
DEC Ri 
BNE is 
S$: sc ;CHECK FOR ITERATIONS. LOOP 
LINE =LINE +i 
BITX=BITX+BITX 
SPEED \LINE,\BITX,1.t/8/,2100, t/RECEIVER/ 


sRECEIVER LINE SPEED SELECTION TEST 

sTRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 14 
sVERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 
sVERIFY THAT THE AMOUN OF TIME TAKEN IS LE 


SS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 

















SEQ 54 


— we mee | 
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011370 TS \XN,10,58,1$ 
011370 012767 000340 166400 T35: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
011376 012767 000010 002420 MOV #10, ICOUNT sSET UP FOR 10 ITERATIONS 
011404 012767 011610 002406 — my Y 65%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
rn < > 
011412 012767 011446 002402 —_ MOV 1$,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000036 XN=XNel 
011420 012705 000014 MOV #14,R5 sLINE 14 WILL BE TESTED 
011424 012700 002100 MOV 2100,R0 sCONSTANT FOR SELECTION 
;O0F INITIAL (LOWEST) SPEED 
011430 012701 000015 MOV #15,R1 315 DIFFERENT SPEEDS WILL BE TESTED 
011434 012704 000001 MOV €1,R4 sBINARY CODE FOR INITIAL SPEED 
011440 012767 177777 002412 MOV @-1, TIME1 sINITIALIZE COMPARISION VALUE 
011446 012777 904000 002302 i1%: MOV @6IT11,@8DHSCR sCLEAR INTERFACE 
011454 010577 002276 MOV RS, @DHSCR sSELECT LINE 14 FOR TESTING 
011460 005077 002300 CLR S0HBA sCLEAR ADDRESS 
011464 012777 177777 002274 MOV @-1,@0HBC :SET UP TO TRANSMIT 
31 CHARACTERS 
011472 010077 002264 MOV RO, @DHLPR sSELECT LINE SPEED 
011476 005067 002360 CLR TIME2 s;CLEAR RECEIVER TIME TIMER 
011502 005067 002356 CLR TEMP 1 sSET UP NO CLOCK TIMER 
011506 012767 000010 002352 MOV #10, TEMP2 
011514 012777 010000 002246 MOV #10000 , SDHBAR sSET BAR BIT FOR LINE 14 
sT0 START TRANSMISSION 
011522 105777 002230 23: TSTs @OHSCR sWAIT FOR RECEIVER 
:T0 FINISH 
011526 100412 BMI 38 
011530 005267 002326 Inc TIME2 sUPDATE RECEIVER TIMER 
011534 005267 002324 INC TEMP 1 sUPDATE NO CLOCK TIMER 
011540 001370 BNE et 
011542 005367 002320 DEC TEMP2 
011546 001365 BNE 2s 
011550 HLT i sRECEIVER DID NOT FINISH, ERROR 
011550 104001 EMT i 
011552 000405 BR 
011554 026767 002302 002276 3%: CMP TIME2., TIME1L sVERIFY THAT RECEIVER 
011562 103401 BLO sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 
3sLESS THAN TIME1) 
611564 HLT 2 sRECEIVER TIMING ERROR FOR 
011564 104002 EMT 2 
sLINE 14 
011566 104410 4%: SCOPE] sCHECK FOR FREEZE ON CURRENT DATA 
011570 016767 002266 002262 MOV TIME2, TIME1 :SET UP FOR NEXT COMPARISION 
011576 INC sSELECT NEXT SPEED 
011600 062700 002100 ADD 2100,R0 
011604 005301 DEC Ri 
011606 001317 BNE is 
011610 104400 5$: ;CHECK FOR ITERATIONS, LOOP 
000015 LINE =LINE +1 
020000 BITX=BITX+B1TX 
011612 SPEED \LINE,\BITX,.1,¢%/8/,2100, t/RECEIVER/ 


sRECEIVER LINE SPEED SELECTION TEST 


s TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 15 


;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 





- - 


CZ0H0 - D0 


-— 


011612 
011612 
011620 
011626 


011634 


011714 
011720 
011724 
011730 
011736 














MACRO VO4.00 27-JUN-85 12:54:12 PAGE 19-31 


012767 
012767 
012767 
012767 
000037 
012705 
012700 


012701 


012767 
012777 


105777 


011670 
000015 
002100 
000015 
00000 


177777 


002042 
002136 
002134 
000010 
020000 


002044 
002100 


166156 
002176 
002164 


002160 


002170 
002060 


002052 


002130 
002024 


002054 


002040 


SEQ 55 


sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 


TS \XN,10,5$,18 
T36: MOV 
MOV 
MOV 
-IF NB <1$> 
MOV 
.ENDC 
XN=XNel 
MOV 
MOV 
MOV 
MOV 
MOV 
1$: MOV 
MOV 
CLR 
MOV 
MOV 
CLR 
CLR 
MOV 
MOV 
23: TSTs 
BMI 
INC 
INC 
BNE 
DEC 
BNE 
HLT 
EMT 
@R 
3$: CMP 
BLO 
HLT 
EMT 
43: SCOPE1 
MOY 
INC 
ADD 
DEC 
BNE 
S$: SCOPE 
LINE =LINE +1 
BITX*BITX+BITX 


#340 ,PS 
#10, ICOUNT 
#53, ESCAPE 


01$,FREEZ1 


#15,R5 
#2100,R0 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 10 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sLINE 15 WILL BE TESTED 
CONS 


ED 
315 DIFFERENT SPEEDS WILL BE TESTED 
sBINARY CODE FOR INITIAL SPEED 
sINITIALIZE COMPARISION VALUE 
sCLEAR INTERFACE 

sSELECT LINE 15 FOR TESTING 

sCLEAR BUS ADDRESS 

sSET UP TO TRANSMIT 

31 CHARACTERS 


;SELECT LINE SPEED 
sCLEAR RECEIVER TIME TIMER 
sSET UP NO CLOCK TIMER 


sSET BAR BIT FOR LINE 15 
3TO START TRANSMISSION 
sWAIT FOR RECEIVER 

TO FINISH 


sUPDATE RECEIVER TIMER 
sUPDATE NO CLOCK TIMER 


sRECEIVER DID NOT FINISH, ERROR 


sVERIFY THAT RECEIVER 

sWAS FASTER AT THIS SELECTED SPEED 
(NUMBER OF COUNTS IN TIME2 

sLESS THAN TIME1) 

sRECEIVER TIMING ERROR FOR 


;LINE 15 

;CHECK FOR FREEZE ON ——s DATA 
:SET UP FOR NEXT COMPARISI 

SSELECT NEXT SPEED 


sCHECK FOR ITERATIONS, LOOP 


SPEED \LINE,\BITX,1,+/B/,2100, t/RECEIVER/ 








ee 


Ro vase es <a 
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sRECEIVER LINE SPEED SELECTION TEST 

s; TRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 16 
sVERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 
;sVERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 

sAT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 


TS \XN,10,5$,1$ 
T3?: MOV 


012767 000340 165734 €340,PS sDISABLE ALL INTERRUPTS 
012767 000010 001754 MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
012767 012254 001742 — ps +4 @5$%, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
“ <1$> 
012767 012112 001736 an MOV #1$,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000040 XN=XNe1 
012705 000016 MOV #16,R5 ;LINE 16 WILL BE TESTED 
012700 002100 MOV #2100,R0 sCONSTANT FOR SELECTION 
s;OF INITIAL (LOWEST) SPEED 
012701 000015 MOV #15,R1 315 DIFFERENT SPEEDS WILL BE TESTED 
012704 900001 MOV 61,R4 sBINARY CODE FOR INITIAL SPEED 
012767 177777 001746 MOV @-1, TIME1L sINITIALIZE COMPARISION VALUE 
012777 004000 001636 i$: MOV €81711.8DHSCR sCLEAR INTERFACE 
010577 001632 MOV » 8DHSCR sSELECT LINE 16 FOR TESTING 
005077 001634 CLR A ;CLEAR BUS ADDRESS 
012777 177777 001630 MOV @-1,@D0HBC 1g ' UP —-* 
3 
010077 001620 MOV RO, @DHLPR sSELECT 
005067 001714 CLR TIME2 sCLEAR RECEIVER TIME TIMER 
005067 001712 CLR TEMP1 sSET UP NO CLOCK TIMER 
012767 000010 001706 MOV #10, TEMP2 
012777 040000 001602 MOV P sSET BAR BIT FOR LINE 16 
;T0 START TRANSMISSION 
105777 001564 23: TST8 SDHSCR sWAIT FOR RECEIVER 
:T0 FINISH 
100412 BMI 33 
005267 001662 INC TIME2 sUPDATE RECEIVER TIMER 
005267 001660 INC TEMP 1 sUPDATE NO CLOCK TIMER 
001370 BNE 23 
005367 001654 DEC TEMP2 
001365 BNE 23 
HLT i sRECEIVER DID NOT FINISH, ERROR 
104001 EMT 1 
000405 BR 43 
026767 001636 001632 3%: CMP TIME2., TIME ;VERIFY THAT RECEIVER 
103401 BLO 4$ sWAS FASTER AT THIS SELECTED SPEED 
;CNUMBER OF COUNTS IN TIME2 
sLESS THAN TIME1) 
HLT 2 sRECEIVER TIMING ERROR FOR 
104002 EMT e 
sLINE 16 
104410 4$: SCOPE1 ;CHECK FOR FREEZE ON CURRENT DATA 
016767 001622 001616 MOV TIME2 , TIME1 sSET UP FOR NEXT COMPARISION 
INC Ra ;SELECT NEXT SPEED 
062700 002100 ADD #2100, RO 
005301 DEC Ri 
001317 BNE is 
104400 S$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
000017 LINE =LINE+1 








-— 





012322 


012410 


012414 
012416 
012422 
012426 
012430 
012434 
012436 
012436 
012440 
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100000 BITX=BITX+BITX 
SPEED \LINE,\BITX,1,+/B/,2100, t/RECEIVER/ 
sRECEIVER LINE SPEED SELECTION TEST 
sTRANSMIT 1 CHARACTERS AT A SELECTED SPEED ON LINE 17 
;VERIFY THAT RECEIVER DONE OCCURS AT THE SELECTED SPEED 
;VERIFY THAT THE AMOUN OF TIME TAKEN IS LESS 
;AT THIS SPEED THAN AT THE PREVIOUSLY SELECTED SPEED 
TS \XN,10,5$,1$% 
012767 000340 165512 T40: MOV @340 PS :DISABLE ALL INTERRUPTS 
012767 000010 001532 MOV #10, ICOUNT ;SET UP FOR 10 ITERATIONS 
012767 012476 001520 _ at #5$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
i <1$> 
012767 012334 001514 ne MOV #1$,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000041 XN=XNeo1 
012705 000017 MOV #17,R5 sLINE 17 WILL BE TESTED 
012700 002100 MOV #2100, sCONSTANT FOR SELECTION 
;0F INITIAL (LOWEST) SPEED 
012701 000015 MOV #15,R1 315 DIFFERENT SPEEDS WILL BE TESTED 
012704 000001 MOV #1 ,R4 sBINARY CODE FOR INITIAL SPEED 
012767 177777 001524 MOV @-1, TIME1 sINITIALIZE COMPARISION VALUE 
012777 004000 001414 i18%: MOV €6IT11.,@0HSCR sCLEAR INTERFACE 
010577 001410 MOV -8DHSCR sSELECT LINE 17 FOR TESTING 
5077 001412 CLR A ;CLEAR BUS ADDRESS 
012777 177777 001406 MOV @-1,8DHBC :SET UP TO TRANSMIT 
31 CHARACTERS 
010077 001376 MOV RO, @DHLPR ;SELECT LINE SPEED 
005067 001472 CLR TIME2 sCLEAR RECEIVER TIME TIMER 
005067 001470 CLR TEMP1 ;SET UP NO CLOCK TIMER 
012767 000010 001464 MOV #10, TEMP2 
012777 100000 001360 MOV » SOHBAR ;SET BAR BIT FOR LINE 17 
;TO START TRANSMISSION 
105777 001342 23: TSTB SOHSCR sWAIT FOR RECEIVER 
:T0 FINISH 
100412 BMI 3$ 
005267 001440 INC TIME2 sUPDATE RECEIVER TIMER 
005267 001436 INC TEMP1 sUPDATE NO CLOCK TIMER 
001370 BNE es 
005367 001432 DEC TEMP2 
001365 BNE ee 
HLT i ;RECEIVER DID NOT FINISH, ERROR 
104001 EMT 1 
000405 BR 4¢ 
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—— 


012442 
012450 


012452 
012452 


012454 
012456 
012464 
012466 
012472 
012474 
012476 
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026767 
103401 


001414 


001400 
002100 


001410 3%: CMP 
BLO 


4$: SCOPE1 
001374 MOV 


5$: SCOPE 
LINE =LINE+1i 
BITX=BITX+BITX 


TIME2, TIME1 
4$ 

2 

2 

TIME2, TIME 
R4 


#2100,RO 
Ri 
i$ 





SEQ 58 


sVERIFY THAT RECEIVER 

sWAS FASTER AT THIS SELECTED SPEED 
sCNUMBER OF COUNTS IN TIME2 

sLESS THAN TIME1) 

sRECEIVER TIMING ERROR FOR 


sLINE 17 

;CHECK FOR FREEZE ON CURRENT DATA 
;SET UP FOR NEXT COMPARISION 
sSELECT NEXT SPEED 


sCHECK FOR ITERATIONS, LOOP 











SEQ 59 
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1 012500 -EOP t/BEGIN/ 

;END OF PASS 

;TYPE NAME OF TEST 

sUPDATE PASS COUNT 

sCHECK FOR EXIT TO ACT-11 

sRESTART TEST 
012500 104401 EOP: TYPE ;TYPE NAME OF TEST 
012502 014460 MEPASS 
012504 005067 001344 CLR LAST sCLEAR LAST ERROR PC 
012510 005067 001274 CLR ERRFLG ;CLEAR ERROR FLAG 
012514 005267 001272 INC PASCNT sUPDATE PASS COUNT 
01 005767 166256 TST LIGHTS ; ARE WE USING LIGHTS? ; 4 
012524 001005 BNE 2$ ; BRANCH IF WE ARE ; 6 
012526 104401 TYPE ; TYPE PASCOUNT MESSAGE ; 5 
012530 014473 PASTXT + 3 
012532 104402 OCTASC ; PRINT PASSCOUNT ; 4 
012534 012572 PASARG et 
012536 03 3$ ; CONTINUE ; 4 
012540 2s: 3 4 
eyes 016767 001246 166234 ne MOV PASCNT ,LIGHTS sDISPLAY PASS COUNT 

s 3; 4 

012546 013701 000042 MOV 9042 ,R1 sCHECK FOR ACT-11 OR DDP 
012552 001405 BEQ RESTRT 3;IF NOT, CONTINUE TESTING 
012554 000005 RESE 
012556 004711 LOGICAL : JSR PC,CR1) 
012560 000240 NOP 
012562 000240 NOP 
012564 000240 NOP 
012566 000167 166514 RESTRT: JMP BEGIN 
012572 000001 PASARG: .WORD 1 ; PARAMETERS TO PRINT PASSCOUNT _ ; 
012574 006 002 -BYTE 6,2 ; 
012576 014012 -WORD PASCN: 
012600 - SCOPE 

sCHECK FOR LOOP ON CURRENT TEST 

sCHECK FOR ITERATION SUPPRESSION 
012600 032777 002000 166172 SCOPER: BIT #SW10, 8SWR 
012606 1030 BNE as 
012610 032777 040000 166162 i1%: BIT @SW14, SSWR 
012616 001021 BNE 33 
012620 032777 004000 166152 BIT @SW11, OSWR 
012626 001 BNE 23 
012630 005267 001172 INC LPCNT 
012634 026767 001166 001162 CMP LPCNT , ICOUNT 
012642 001007 BNE 3$ 
012644 005067 001156 2$: CLR LPCNT 
012650 5067 001134 CLR ERRFLG 
012654 011667 001136 MOV (SP), RETRN 
012660 RTI 
012662 016716 001130 3$ MOV RETRN, (SP) 
012666 RTI 
012670 005767 001114 4$: TST ERRFLG 
012674 001745 BEQ i$ 
012676 762 BR 2$ 





CZDHO -D0 
3 012700 
012700 


012706 
012710 
012714 


i 





MACRO VO4.00 27-JUN-85 12:54:12 PAGE 20-1 


-SCOP1 
sCHECK FOR FREEZE ON CURRENT DATA 


032777 001000 166072 SCOPIR: A + eee 


001402 1 
016716 001106 MOV FREEZ1,(SP) 
000002 1%: RT1 





LF LO EL I I ELITES SG OC INE CEI PI EEOC SEIT CN IE SES NRC Sa i > 





SEQ 60 


CZDHO - 00 


oa 


1 012716 
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177001 
014672 
000040 


000001 


000010 


165714 
000002 
000710 
002000 
006700 


002 


000754 


165666 
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-ERROR 
sERROR HANDLER 
ERRORS: BIT @SW13,8SWR 
BNE TS 
CMP (SP) ,LAST 
BEQ 
HOV (SP),LAST 
CLR LG 
1%: SAVOSP 
MOV CSP),.RS 
SUB RS 
MOV CRS) ,R4 
ASL 
ASL r4 
BIC #177001,R4 
ADD SERRTAB ,R4 
MOV C(R4)+, ERRMSG 
MOV CR4) ,DATABP 
TST ERRFLG 
BEQ TYPMSG 
TST DATABP 
BNE TYPDAT 
TYPMSG: TYPE 
MCRLF 
OCTASC 
ERTABO 
MOV #1,ERRFLG 
TYPE 
ERRMSG: 0 
TYPDAT: TST DATABP 
BEQ RESREG 
ate 
OCTASC 
DATABP: O 
RESREG: RESOS 
HALTS: TST 9SWR 
BPL EXITER 
PUSHRO 
MOV 2(SP),RO 
HALT 
POPRO 
EXITER: INC ERRCNT 
BIT @SW10,8SWR 
BEQ i$ 
MOV ESCAPE ,( SP) 
1$: RTI 
ERTABO: 1 
-BYTE 6,2 
SAVPC 





nnn ncn cc ccc nmccar ncaa SS SSS 
SEQ 61 





—— 


013174 
3200 
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000002 
000000 


177001 
014612 
000000 





000656 


. TRPSRV 


TRPSRV : 


TRPOK: 


- SAVREG 


SVOSP: 


SVO5: 


-RESREG 


RSOS: 


sSAVE PC OF TEST THAT FAILED AND RO-RS 


sGET PC OF RETURN 
:=PC OF TRAP 

;GET TRP 
sMULTIPLY TRAP ARG BY 2 

;CLEAR UNWANTED BITS 

;sPOINTER TO SUBROUTINE ADDRESS 
sSUBROUTINE ADDRESS 
;GO TO SUBROUTINE 


;TRAP DISPATCH SERVICE 
sARGUMENT OF TRAP IS EXTRACTED 
;AND USED AS OFFSET TO OBTAIN POINTER 
;TO0 SELECTED SUBROUTINE 
MOV (SP),-CSP) 

SUB #2 ,(SP) 

MOV 8C( SP), (SP) 

ASL (SP) 

BIC #177001, (SP) 
ADD @TRPTAB, (SP) 
MOV aC SP), (SP) 

JMP OC SP )+ 

MOV 4( SP), SAVPC 
sSAVE RO-R5 

MOV RS,SAVRS 

MOV R4,SAVR4 

MOV R3.,.SAVR3 

MOV »SAVR2 

MOV R1,SAVR1L 

MOV »SAVRO 

RTI 

sRESTORE RO-RS 

MOV SAVRO, RO 

MOV SAVR1,R1 

MOV SAVR2,R2 

MOV SAVR3S,R3 

MOV vR4, 

MOV SAVRS,RS 

RTI 








SEQ 62 
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000462 


000450 





. TYPER 
TYPER: MOV 
ADD 
1$: TSTB 
BPL 
TSTB 
BNE 
RTI 
2$: MOVB 
BR 
. INSTRG 
INSTRG: MOV 
ADD 
INSTAL: a 
MOV 
MOV 
i$: TST8 
BPL 
MOVB 
BICB 
BEQ 
MOVB 
23: TSTs 
BPL 
DEC 
BNE 
INSTRE: TYPE 
MQM 
BR 
INSTR2: RTI 





sTELETYPE OUTPUT ROUTINE 


8(SP),RS 
@2,(SP) 


CR5)+, @TPDBR 
is 


sASCII STRING INPUT ROUTINE 


8C(SP),MSG 
@2,(SP) 


@INBUF ,R4 
#7,R3 
STKCSR 

is 
STKDBR , CR4) 
#200, CR4) 
CR4)> . #15 
INSTR2 











SEQ 63 


rr eee 
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1 013410 . PARAMS 
sCONVERT ASCII STRING TO OCTAL 3; 3 
013410 011695 PARAMS: MOV CSP),RS 
013412 012567 000146 MOV CRS)+,LOLIM 
013416 012567 000144 MOV CRS)+,HILIM 
013422 012567 000142 MOV CRS)+,DEVADR 
013426 112567 000140 MOVB CR5)+,LOBITS 
013432 112567 000135 MOVB CR5)+, ADRCNT 
013436 010516 MOV RS CSP) 
013440 PARAM1: CLR RS 
013442 012704 014634 MOV @INBUF ,R4 
013446 122714 000015 CMPB #15,(R4) 
013452 001420 BEQ PARERR 
013454 121427 000060 18: CMPB CR4) ,@60 
013460 002415 BLT PARERR 
013462 121427 000067 CR4) 067 
013466 3012 BGT PARERR 
013470 142714 000060 BICB #60, (R4) 
013474 152405 BISB CR4)+,R5 
013476 122714 000015 CMPB #15,(R4) 
013502 001406 BEQ LIMITS 
013504 ASL 
013506 006305 ASL 
013510 ASL RS 
013512 000760 BR i$ 
013514 104404 PARERR: INSTER 
013516 000750 BR PARAML 
sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
013520 020567 000042 LIMITS: CMP RS ,HILIM 
013524 101373 BHI PARERR 
013526 000032 RS ,LOLIM 
013532 103770 PARERR 
013534 136705 000032 LOBITS .RS 3 3 
013540 001365 
sSTORE NUMBER AT SPECIFIED ADDRESS 
013542 016704 000022 MOV DEVADR .R4 
013546 010524 i$: MOV RS, CRA) 
013550 062705 000002 AOD 2 ..RS 
013554 105367 000013 ECB 
013560 001372 BNE 14 
013562 000002 RTI 
013564 900000 LOLIM: 0 
013566 0C0000 HILIM: 0 
013570 000000 DEVADR: 0 
013572 000000 LOBITS: 0 
013573 ADRCNT *LOBITS+1 
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013574 -OCTASC 
sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 

013574 017601 000000 OCTASN: MOV @C(SP),R1 ; 5 
013600 062716 000002 ADD @2,(SP) 
013604 012167 0001350 MOV (R1)+,WROCNT 
013610 112167 000126 1$: MOV8 (R1)+¢, CHRCNT 
013614 112167 000123 MOVE (R1)+,SPACNT : 3 
013620 013167 000120 MOV @CR1)+ ,BINWRD 
013624 016704 000114 2s: MOV BINWRD ,.R4 
013630 116705 000106 MOVB CHRCNT .RS 
013634 014646 MOV © e 
013640 010403 3$: MOV R4,R3 
013642 042703 177770 BIC #177770,R3 
013646 062703 000260 ADO #260 ,,R3 
013652 110320 MOVB RS ,CRO)+ 
013654 006204 ASR R4 
013656 006204 ASR R4 
013660 006204 ASR R4 
013662 005305 DEC RS 
013664 001365 BNE 3$ 
013666 012703 014660 MOV @MDATA.RS 
013672 114023 4%: MOVB -CRO),CR3)> 
013674 105367 000042 CHRCNT 

001374 
013702 105767 000035 
013706 001405 

3710 112723 000240 

013714 10 000023 
013720 001373 
013722 105013 
013724 104401 
013726 014660 
013750 000004 
013734 001325 
013736 000002 
013740 000000 
013742 000000 

013743 
013744 

















SEQ 66 
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013746 -POINT *t/DHSCR,DHNRC,DHLPR,OHBA,DHBC ,OHBAR, DHBCR, OHSSR, OHSLR, DHRVEC ,DOHRLVL , DHT P 
s INDIRECT POINTERS 7 + Oe SL 
013746 177560 TKCSR: 177560 
013750 177562 TKOBR: 177562 
013752 177564 TPCSR: 177564 
013754 177566 TPOBR: 177566 
ino . IRP A <DHSCR ,DHNRC , DHLPR ,OHBA, DHBC , DHBAR , DHBCR , DHSSR , OHSLR , DHRVEC, DHRL VL ,DHT VEC. DH 

A: 0 

.-ENDM 
013756 000000 DHSCR: 0 
013760 000000 DHNRC: 0 
013762 000000 DHLPR: O 
013764 000000 : Q 
013766 000000 : 0 
013770 000000 DHBAR: 0 
013772 000000 DHBCR: O 
013774 000000 SSR: O 
013776 000000 OHSLR: O 
014000 000000 DHRVEC: 0 
014002 000000 DHRLVL: 0 
014004 000000 OHTVEC: 0 
014006 000000 DHTLVL: O 

2 914010 -VARIA *t/TCONST, TIME1, TIME2, TEMP1, TEMP2/ 
sPROGRAM VAR TABLES 

014010 000000 0 sERROR FLAG 
014012 000000 0 sPASS COUNT 
014014 000000 i+) sERROR COUNT 
014016 000000 0 sSCOPE RETURN ADDRESS FOR TEST LOOPING 
014020 000000 0 sADDRESS FOR ERROR ESCAPE 
014022 000000 0 ;DATA LOOPING RETURN ADDRESS 
014024 000000 0 sITERATION COUNT FOR TEST IN PROGRESS 
014026 000000 0 sNUMBER OF ITERATIONS THIS TEST 
014030 000000 0 sRO SAVE AREA 
014032 000000 0 sRi SAVE AREA 
014034 000000 0 sR2 SAVE AREA 
014036 000000 0 sR3 SAVE ARE 
014040 000000 t sR4 SAVE AREA 
014042 000000 0 sR5 SAVE AREA 
014044 000000 0 ag POINTER SAVE AREA 
014046 000000 Q ROUTINE SAVE AREA 
014050 000000 0 SPROGRAM INITIALIZATION FLAG 
014052 000000 0 :PROGRAM START FLAG 
014054 000000 0 sLAST ERROR PC 

Ps rs <TCONST., TIME, TIMES, TEMP1, TEMP2> 

: 

014056 000000 TCONST: 0 
014060 000000 TIME1: 0 
014062 000000 TIME2: O 
014064 000000 TEMP1: O 
914066 000000 TEMP2: O 
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1 014070 


014070 
014072 
014074 
014076 
014100 
014102 
014104 
014110 
014114 
014122 
014124 
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163714 
177730 
014126 


177712 


163702 


163650 
163614 


.PFAIL 


PFAIL: 


RESTAR: 


PF TAB: 





SEQ 67 


sENTER HERE ON POWER FAILURE 


RO, -(SP) 


SP ,SAVSP 


A 
@RESTART ,24 


sSAVE RO-RS ON PROCESSOR STACK 


sSAVE STACK POINTER 
sSET UP FOR POWER UP TRAP ; 3 
sHALT ON POWER DOWN NORMAL 


sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


ERRFLG 





sRESTORE STACK POINTER 
sRESTORE RO-RS 


sSET UP FOR POWER FAILURE 


ee oF 
Vi“ 


—— 
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t/DH11 SPEED SELECTION LOGIC TEST/,*/CZDHD-DO/ 


.MSG 

MTITLE: .ASCIZ 
MVECTO: .ASCIZ 
MREGAD: .ASCIZ 
MQM: -ASCIZ 
MCRLF: .ASCIZ 
MPFAIL: .ASCIZ 


MEPASS: .ASCIZ 


PASTXT: 


-ASCIZ 





€15><12><12>/DH11 SPEED SELECTION LOGIC TEST /<15><12> 


<15><12>/VECTOR ADDRESS-/ 


<15><12>/CONTROL REGISTER ADDRESS-/ 


4 24 


<15><12> 
/ POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/ 


¢15><12>/CZDHD -DO/ 


<15><12>/PASS COUNT = / 


SEQ 68 


: 5 





CZOHD - DO 


| 
L 


014476 


014660 


7 014672 


a  _ A 
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MR : 
MTSTPC: 


-EVEN 
EM1: 


-TRPTAB 


-BUFFER 


eASCIZ <15><12>/R/ 
~ASCIZ <¢15><12>/TEST PC-/ 


-ASCIZ /NO CLOCK/<15><12>/LINE SPEED/ 


.ASCIZ /TIMING ERROR/<15><12>/LINE SPEED/ 


sTABLE OF POINTERS FOR TRAP DECODING 


sBUFFERS FOR INPUT-OUTPUT 
0 


sTABLE OF POINTERS TO ERROR MESSAGES AND DATA 


SEQ 69 


SEQ 70 


MACRO VO4.00 27-JUN-85 12:54:12 PAGE 28-2 


004 


ERRTAB: 
0 ;NO MESSAGE 
0 sNO DATA 
ETi: aoe sNO CLOCK ERROR 
ET2: EM? ;TIMING ERROR 
DOTi 
;DATA TABLES FOR ERROR OUTPUT 
DOTi: 2 32 DATA WORDS WILL BE TYPED 
BYTE 2,4 ;TWO DIGITS, 4 SPACES 
SAVRS ;LINE UNDER TEST 
BYTE 2,0 sTWO DIGITS, NO SPACES 
SAVR4 ;SELECTED SPEED 
.ENDCOD 
ENDCOD: 0 
END 














SEQ 71 
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SYMBOL TABLE 
ADRCNT= 013573 EOP 012500 MTSTPC 014517 SPACNT= 013743 T10 003376 
BEGIN 0017206 ERRCNT 014014 MVECTO 014306 STACK = 015120 Ti1 003620 
BINWRD 013744 ERRFLG 014010 START 001004 T12 004042 
BITX = 000000 ERRMSG 0 STFLG 014052 T13 004264 
BITOO = 000001 ERRORS 012716 SVOS 013170 T14 
BITO1 = 000002 ERRTAB 014672 SVOSP 013162 T15 004730 
BITO2 = 000004 ERTABO 013122 SWR 001000 T16 005152 
BITOS = 000010 ESCAPE 014020 SWOO = 000001 T17 005374 
BITO4 = 060020 ETi 014676 SWO1 = 000002 T2 001622 
BITOS = ET2 014702 SWO2 = 000004 T20 005616 
BITO6 = 000100 EXITER 013100 SWOS = 000010 T21 
BITO7 = 000200 FREEZi 014022 SWO4 = 000020 T22 006262 
BITO&S = 000400 HALTS 013060 SWOS = 000040 T23 006504 
BITO9 = 001000 HILIM 013566 SWO6 = 000100 T24 006726 
BIT10 = 002000 ICOUNT 014024 SWO8 = 000400 T25 007150 
BIT11 = 004000 INBUF 014634 = 001000 T26 007372 
BIT12 = 010000 INIFLG 014050 SW1i0 = 002000 127 007614 
BITi3 = 020000 INSTER= 104404 SWii = 004000 T3 
BIT14 = 040000 INSTR = 104403 SWi2 = 010000 T30 010036 
BITi5 = 100000 INSTRE 013400 SWi3 = 020000 T31 010260 
013742 INSTRG 013306 SW1i4 = 040000 T32 010502 
DATABP 013054 INSTRi 013320 SWwiS = 1 T33 010724 
DEVADR 013570 INSTR2 013406 134 011146 
DHBA 013764 LAST 014054 T35 011370 
DHBAR 013770 LIGHTS 001002 011612 
DHBC 013766 LIMITS 013520 137 012034 
DHBCR 013772 LINE = 000020 14 002266 
DHLPR 013762 LOBITS 013572 T40 012256 
DHNRC 013760 LOGICA 012556 002510 
DHRLVL 014002 LOLIMN 013564 TKOBR O01 T6 002732 
DHRVEC 014000 LPCNT 01 TPCSR 013752 7 003154 
DHSCR 013756 MCRLF 014370 TPOBR 01 VECi 001164 
DHSLR 013776 MDATA 014660 TRPOK 013142 VEC2 001174 
DHSSR 013774 MEPASS 014460 TRPSRY 013130 WRDCNT 013740 
014006 MPFAIL 014373 TRPTAB 014612 x = 000000 
DHTVEC 014004 MQM 014364 TYPDAT O01 XBIT = 000000 
OT1 014706 MR 014513 TYPE = 104401 MLINE = 000020 
EM1 014532 MREGAD 01 TYPER 013254 XN = 000041 
014560 013322 TYPMSG 013016 ¥ = 000011 
ENDCOD 014720 MTITLE 014240 Ti 001400 
- ABS. 014722 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 17664 WORDS ( 69 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES e 
CZDHDD .BIN, CZDHDD . SEQ=CZDHDD . DOC , DHMACA.MAC, CZDHDD .P11 








